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Abstract 



Adaptive Design or prototyping has been suggested as an 
effective approach for developing and implementing computer- 
based decision support systems (DSS) . The literature on DSS 
has also shown that adaptive design improves user involve- 
ment and satisfaction. This thesis attempts to follow the 
adaptive design approach to design and implements a data- 
oriented DSS — the NPS Department of Administrative Scien- 
ces (AS) Database Reporting System. The development of the 
AS Reporting System has helped review the adaptive design 
strategy. The following findings were derived: 

- Close participation between end user(s) and the system 
builder helps to clarify problem issues. 

- Frequent brief interactions between end user and 
system developer provide more immediate and better 
defined response, resulting in a more effective proto- 
type. 

- Unstructured initial planning sessions involving the 
end user and the system builder could distract the end 
user from the definition of important initial require- 
ments. A more structured, issue-oriented approach 
results in more timely and clearly defined require- 
ments . 

- User feedback is less intense and critical towards the 
final phase of the development process. 

- Prototyping is cost-effective, at least for the first 
phases of system enhancements. 

- Prototypes are disposable systems. 
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I. INTRODUCTION 



The purpose of this thesis is twofold. First, it de- 
signs, develops and implements a data-oriented financial 
decision support system for the Department of Administrative 
Sciences (AS) of the U.S. Naval Postgraduate School — the 
AS Database Reporting System. Second, throughout the deve- 
lopment of the system, this thesis seeks to derive some 
observations on the effectiveness of the adaptive, or proto- 
typing, approach in building an end user-oriented computer- 
ized decision support system. 

There are at least two factors that have motivated this 
thesis. First, the increasing need of managing complex 
financial data within the Administrative Sciences Department 
has triggered interest among the department managers to 
automate their financial system. A computerized system is 
expected to provide accurate and timely information han- 
dling. It can also generate fast and standardized reports 
which are prohibitively labor intensive if done with the 
manual system. 

Second, the literature on Decision Support Systems (DSS) 
often advocates that the traditional approach for developing 
a data processing system is not appropriate for prototyping. 
In fact, a conventional development life-cycle consists of 
eight phases. These include: system feasibility, software 
plans and requirements, product design, detailed design, 
code, integration, implementation and operations and main- 
tenance [Ref. 1]. Such an approach requires full knowledge 
of the nature of the problem. Furthermore, it has revealed 
to be costly in time and effort. Since DSS requirements 
constantly change during the development process, using the 
traditional life-cycle model can be risky. 
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This thesis is organized as follows. Chapter II dis- 
cusses the adaptive design approach to DSS development. 
Characteristics of the prototyping approach are addressed. 
Also, the model for prototyping is presented. Chapter III 
gives an account of the prototyping experiment with the AS 
Database Reporting System. The "diary approach" is adopted 
to record the evolution of the system architecture from the 
user interaction perspective. Chapter IV discusses some 
observations based on the prototyping experiment and pro- 
vides suggestions for possible future extensions of the 
proposed system. 

Three phases of iterative design are examined. Techni- 
cal reports on the AS Database Reporting System are describ- 
ed in the appendices. Appendix A reproduces the user's 
manual. It provides instructions for the casual users. 
Diagrams of the system interface, reproduction of the system 
menus, and sample hard copy reports are respectively given 
in Appendices B, C and D. Appendix E contains detailed 
technical instructions intended for the database administra- 
tor and the system programmer. Data Flow Diagrams, struc- 
tured charts, a data dictionary, program listings and lists 
of tables are respectively given in Appendices F, G, H, I 
and J. 
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II. THE ADAPTIVE DESIGN APPROACH TO DSS DEVELOPMENT 



A. WHAT IS ADAPTIVE DESIGN? 

Conventional design strategy in data processing systems 
invariably assumes that the requirements of the system can, 
and should, be determined prior to the implementation of the 
system. This requirements analysis can be achieved by per- 
forming logical analysis and investigation of user informa- 
tion processing needs and behavior [Ref. 2J. For instance, 
the requirements for an accounting system could be determin- 
ed by examining accounting procedures and interviewing 
competent accountants. 

However, such a procedure cannot be applied to building 
a DSS. A DSS can be defined as a computer-based system that 
helps its user(s) in solving ill-defined or unstructured 
decisions. As a consequence, the system designer cannot — 
and eventually should not — have or be required to have a 
complete understanding of the user's needs prior to the 
design and implementation process. Rather, he should expect 
that the emergence of unanticipated informational needs is a 
continuing part of the design and development effort. 

Thus, adaptive design in a DSS involves the role of 
learning in the DSS building process. To reduce the risk of 
not being able to reach (uncertain) final objectives, DSS 
researchers often argue for adopting the prototyping stra- 
tegy. This consists of focusing the development effort on 
building a quick and working prototype or model that has the 
most important features or ideas. This early system is next 
delivered to the end user for evaluation. The users then 
give their feedback for determining possible enhancements. 
The system builders study the users' suggestions and attempt 
to update the prototype accordingly. This interaction 
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between the user and the analyst continues until a satisfac- 
tory prototype is achieved. An important implication of such 
an iterative and evolutionary process is that both the user 
and the analyst are expected to make mistakes, but attempt 
to learn as much as possible from these mistakes. 

B. CHARACTERISTICS OF ADAPTIVE OR EVOLUTIONARY DESIGN 

The process of evolutionary design can be characterized 
by the following: 

1. Remove the Pressure to Do it Right 

Keen [Ref. 3] insists that the prototyping goal 
should be focused on effectiveness rather than on efficien- 
cy. It is essential that a system be built, even if it does 
not have all of the desired features. Such a strategy will 
help remove some pressure on the system builder. In fact, 
high requirements of the system reliability could be a 
gold-plating feature that causes delay and increased costs. 
The end user often wishes to see a working system — even at 
the risk of incompleteness — to understand what it is all 
about. 

2 . A Learning Process 

Learning is an integrated part of the design process. 
It is assumed i.iat the user copes with a semi-structured do- 
main. Some relevant decision-making factors are unknown. 
Also, the decision making methods are vaguely defined. 
Prototyping can be used as a learning tool to explore the 
manner of change in the users' priorities. A good develop- 
ment process should lead to a redefinition of the user's way 
of analyzing the problem. This would in turn lead to a new 
way to resolve problems. 

3 . User Participation 

Evolutionary design involves active user participa- 
tion. The user should provide good and timely feedback to 
facilitate the enhancement process of early prototypes. 
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This implies that the DSS user employs the system and evalu- 
ates it in light of the merits of the information it pro- 
vides to support decision making. He is expected to suggest 
changes in Input/Output formats and the structure of the 
prototype under development, rank the usefulness of various 
modules of the current system and to prioritize the useful- 
ness of suggested features to be integrated. 

4 . Inexpensive Development Effort 

Keen and Gambino [Ref. 4] argue that the first proto- 
type should be inexpensive. 3y its nature, prototyping is a 
risky venture. Since potential benefits of the would-be DSS 
are often unclear, important development cost can hardly be 
justified. More important, a high initial investment can 
discourage the user to abort the process. 

C. A MODEL FOR PROTOTYPING OR ADAPTIVE DESIGN 

Neumann and Jenkins propose a prototype model that 
consists of four procedures. As shown in Figure I, the 
first procedure is a design step that attempts to identify 
the user (s) 's basic information requirements. A number of 
requirements analysis approaches were proposed to identify 
the users (s) 's requirements; the data abstraction approach- 
- the essential features are data and data relationships, 
and the process simulating approach — both data and proces- 
ses must be identified in the first step. [Ref. 5] 

The second step involves the development of the initial 
or enhanced prototype which can then be delivered to the 
user for use and feedback. In the third step, the use of the 
prototype leads to discussions and suggestions for enhancing 
the prototype (the fourth step) . 
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Figure 1 

A Model for Prototyping 

It should be noted however that the interaction between 
the user and the model is the key issue during the entire 
process. It is the quality and speed of the interaction 
between the user and the system developer that dictates the 
successfulness of the prototyping project. 



11 



III. THS AS DATABASE REPORTING SYSTEM 



A. BACKGROUND 

The Department of Administrative Sciences (AS) of the 
Q.S. Naval Postgraduate School has operated its financial 
data base manually. Nith a size of more than one hundred 
personnel, including faculty and staff, financial operations 
and planning has required suostantial investment in man- 
power. Nith its growing size, there has been a universal 
recognition to have an computer-based data base management 
system (DBMS) . In March 1384, an information requirements 
analysis had oeen explored oy Renner [Ref. 6]. This ana- 
lysis applied the methodology of structured design to derive 
some suggestions for building a relational DBMS for the AS 
department [Ref. 7]. In November 1984, a first attempt to 
implement a DBMS was initiated by a Management Information 
Systems faculty member (who played the role of the system 
builder) in collaboration with a departmental management 
assistant (who played the role of the potential user) . The 
KnowledgeUan (X-Man) relational Data Base Management System 
was adopted as the system generator. X-Man was chosen 
because of its flexible relational database concept and the 
possioility to perform spreadsheet analysis and graphics. 
It also leaves room for the trained end user to manipulate 
the DBMS command language. Extensive interaction between the 
two interested parties has lead to a thorough requirements 
analysis and system specifications. Also, a few data taoles 
and displayed screen interfaces were developed to test the 
feasibility of using K-Man as the system generator. 
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3. METHODOLOGY: THE "DIARY APPROACH" 

Ginzberg argues for a "Diary Approach" to observe the 
relationship between the user and the system designer [Ref. 
3]. This approach has proven useful in recording the evolu- 
tion of the systems modifications and user satisfaction. 
The diary approach consists of using a log book to systema- 
tically record the history of the DSS development process. 
Its records the evolution of the system due to modifications 
requested by both the system builder and the users. Figure 
2 describes the three elements involved in the adaptive 
design of the AS database reporting system. Among the users, 
the management assistant and the faculty advisor maintained 
close interaction with the graduate student. The interac- 
tion with the faculty advisor primarily dealt with concep- 
tual designs and technical issues. The interaction between 
the management assistant and the graduate student was almost 
daily. It focused on the system development and the inter- 
face format; i.e., screen design and reports. The inter- 
action with the administrative assistant and interested 
office clerks was casual.' They provide feedback on the 
quality of the user interface. 

Table I reports historical entries on the iterative 
design process. The changes were either initiated by the 
user (i.e., the management assistant) or the system develop- 
er (i.e., the author). The definition of the acronyms used 
in the table can be found in Appendix H. 
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Figure 2 : The Elements of the Adaptive Design of the AS 

Database Reporting System 
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TABLE I. DIARY ENTRIES 



DATE INITIATOR ACTION 

(D = DEVELOPER, 

U = USER) 



3 Sep D 

4 Sep D 

5 Sep D 

8 Sep D 

9 Sep D 

26 Sep U 

29 Sep U 

30 Sep D 

3 Oct D 

8 Oct D 

15 Oct D 
15 Oct-13 Nov D 



Worked on forms to add data to the 
personnel history (PHISTORY) tables. 



Same as above. K-Paint directions 
were misread; caused 2 days delay. 
Created three PHISTORY reports for 
user to confirm design. 

Continued working on PHISTORY re- 
ports . 



If 



User had problems accessing files. 
This was caused by a hardware pro- 
blem. Created three menus; the 
main, expenses and data base menus. 

Modified/created 5 reports. 

Modified the PHISTORY menu program 
and created a program to delete 
records . 

Transferred files to another compu- 
ter due to hardware proolems. 
(3acked-up and reconfigured system.) 

Everything is at the same state as 2 
weeks ago - lost 2 weeks due to 
Backup problems. 

Attempted to pass an ICF program in 
the deletion modules. — Not suc- 
cessful . 

Attempted to get around above pro- 
blem by using MACRO(s). — Mot 
successful. Decided to use case 
statements if necessary in modules. 
— This was successful. 
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13 Nov 



13 Nov D 


Corrected PHISTORY report. Page 
headers were not displayed. Error 
was in reading K-Paint documenta- 
tion. 


15 Nov D 


Attempted to speed-up processing by 
RELEASING modules. — Mot success- 
ful . 


18 Nov D 


RELEASE and MACRO (s) are not needed 
in the code. 


20 Nov U 


Trying to determine a method of 
printing the last date that a table 
was updated on a report. -- Not 
successful . 


21 Nov D 


Demonstrated system for user. 


26 Nov U 


Made the system more user friendly 
(error detection) by using loops in 
programs . 


1 Dec D 


Working on menus for the reports 
generators . 


2 Dec U 

11 Dec □ 


Modified PHISTORY report. 

Created Outstanding TO(s) Report. 


12 Dec U 


Modified forms for entering data 
from mixed case to upper case. 
Added a RATE field to PHISTORY table 
to ease computation of virtual 
fields . 


14 Dec D 


Created forms to enter data and 
modified programs to display menus. 


7 Jan D 


Modified programs to load tables and 
forms once to speed up processing. 


9 Jan D 


Created form to enter data. 


14 Jan D 


7 Jan modifications were not suc- 
cessful. Deleted modifications. 


15 Jan D 


Demonstrated system to user. Imple- 
mented system. 
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18-26 Jan U 


Modified and created programs to 
allow user to access specific re- 
cords. Required creation of 83 more 
files, (perform files, forms and 
error messages) 


3 Feb U 


Modified the personnel funding 
report. 


6 Feb U 


Deleted INDIRECT. DOC# from INDIRECT 
entry forms and added SEGMENT and 
SERIALS to INDIRECT table. 


D 


Modified the DELTREC2.IPF module so 
that the last record in a table will 
not be deleted if a match of the 
deletion criterion is not found. 


13 Feb U 


Took INDIRECT. EXTENDED out of taoles 
— not needed. 


15 Feb U 


Added PURCHASE. QTY to entry forms. 


17 Feb U 


Added INDIRECT. SERIALS and INDI- 
RECT. SEGMENT to entry form. Deleted 
INDIRECT. DOC# from same. 


19 Feb U 


Found two different data values 
called INDIRECT. DOC#. Placed IN- 
DIRECT. DOC# back in entry form. 


D/U 


Took financial analysis option out 
of MAINFRM.IPF (not enough time to 
develop and implement) . Crossed 
modified system over to production. 



With the "Diary Approach" any major design decisions or 
accomplishments, and significant problems or events were 
logged. As the design of the system progressed, the majo- 
rity of the actions were initiated by the user(s). 

C. THE EVOLUTION OF THE AS REPORTING SYSTEM ARCHITECTURE 

Departing from the original architecture, this section 
discusses the required modifications that occurred through- 
out the implementation and testing processes. During the 
development process, it has been noticed that the user has 
actively participated in the creation of the DBMS prototype. 
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Such participation has triggered numerous generations of 
new requirements and consequently modifications to the 
originally planned design. The purposes of this thesis are 
(i) to expand the initial system, a working but incomplete 
data base system that is used as a management planning tool, 
and (ii) to observe the evolutionary development of the DBMS 
in terms of user needs and satisfaction. 

1 . The Initial AS Reporting System Architecture 

The initial AS Reporting System Architecture (Figure 
3) was based on four income accounts; OPTAR, 10% Indirect, 
other sources of income and research funds, and four expense 
accounts; miscellaneous expenses, travel, personnel salary 
and equipment/supplies. Figure 3 shows that the income 
accounts had varied expenses; i.e., miscellaneous expenses, 
travel and equipment/supplies may be funded by the OPTAR 
account. Additionally, there may be major restrictions on 
expense funding; i.e., equipment/supply purchases over $3000 
may not be funded by the OPTAR account, personnel salaries 
may not be funded from the OPTAR account. 
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Misc. 



Less than $3000—^ 





Equipment/ 

Supplies 



Figure 3: The Initial AS Reporting System Architecture 

2. The First Modification Stage 

During the first modification stage, an additional 
income account, OPTAR balance, and an additional expense 
account, travel request, were deemed necessary to provide 
the user(s) with more financial information. 
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3 . The Second (Final) Modification Stage 

During this stage, accounts (data tables) were added 
and deleted from the AS Reporting System's Architecture. 
The two data tables added during the first modification 
stage, OPTAR 3alance and travel request were deleted. The 
OPTAR and travel accounts, with minor modifications, could 
provide the same information as the before mentioned deleted 
tables. Two tables were added, one table contained person- 
nel information (pay grade, job status, etc.) and another 
contained an inventory of property. Appendix J is a list 
of the current data tables and their respective data fields. 
The following are major changes resulting from user inter- 
action: 

1. Redefinition of field names and types to increase 
consistency throughout the data base and deletion or 
addition of data fields;, redefined fields — 7, 
deletion of fields — 12, addition of fields — 16. 

2. Menu and form formats. 

3. Change of instructions on menus and forms. 

4. Compromise of report formats to fit both users; the 
more knowledgeable user wanted more information 
while novice users wanted less. 

5. The ability to select records based on specific 
field values. 
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IV. RESULTS AND DISCUSSION 



This thesis involved the design and implementation of a 
data-oriented decision support system to support financial 
decision making of the AS Department. 

A. SOME OBSERVATIONS ON THE EXPERIMENT 

1. Close Participation Between the End User(s) and the 

Systems Builder 

Adaptive Design allows the user to actively partici- 
pate in the evolution of the system characteristics. Three 
basic changes in the system design occurred during the 
prototyping effort. First, some data tables were redesign- 
ed. Field names and sizes had been redefined. A number of 
tables were combined. Second, additional program modules 
were added to coordinate various systems functions using 
menu structures. The latter render the sequencing of program 
modules transparent to novice users. Third, the use of the 
system (i.e., K-Man) command language was increased. 

In a more conceptual level, the cross examination of 
the prototype give rise to better understanding of the 
issues related to the financial system. The experience with 
the implementation of the AS Reporting System also confirms 
some early findings that argues prototyping as a catalyst to 
participative design, learning, and organizational develop- 
ment [Ref. 9], In effect, it has been observed that the 
main participating user has gained increasing interest in 
the understanding and design of systems. Also, the early 
success of the prototype has generated some redesign of 
office tasks. 

2. Interaction Time 

The more frequent the interaction time between the 
user and the developer, the more effective the prototype. 
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Delayed feedback has proven to slow down the learning 
process and weaken the participants' enthusiasm. Time 
pressures could be used as a strategy to speed up the inter- 
action process. 

3 . Planning Sessions 

Unstructured initial planning sessions involving the 
end user and the system builder could distract the end user 
from the definition of important initial requirements. A 
more structured, issue-oriented approach results in more 
timely and clearly defined requirements. This is even 
accentuated when there is more than one participating user 
and/or novice users. Individual differences sometimes have 
produced conflicting design suggestions. However, effective 
group discussion have proven to avoid the risk of designing 
system features that reflect strong biases from a single 
individual. Henderson [Ref. 10] raises the potential risk 
of loss of creativity when dealing with multiple participa- 
ting users. Due to little group interaction, and more 
importantly, to the large disparity in the degree of parti- 
cipation, it was not possible to confirm nor disconfirm the 
impact of group interaction processes and user creativity. 

4. User Feedback is Less Intense and Crucial Towards 
the Final Phase of the Development Process 

The user feedback is expected to end when a satis- 
factory system is delivered. It seems to be unrealistic to 
expect the end user — even though he/she has become more 
computer literate — to keep expanding the system. Since 
the user has captured the capabilities as well as limita- 
tions of the system, he/she can more or less precisely 
formulate requirements for future enhancements. At this 
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stage, the need of sustained user feedback seems to be less 
crucial — requested modifications are normally minor. 

5 . Cost Effective 

Prototyping is cost effective, at least for the 
first phase of system enhancements. The effort spent on 
developing a successful and complete module has allowed 
duplication of programming procedures to similar modules in 
later version of the prototype. However, it is not clear 
that the economies of scale effect would continue to imple- 
ment more complex integrated modules in the future. 

6. Prototypes are Disposable Systems 

At least for the user who has participated through- 
out the entire design and implementation process, the proto- 
type has become to a certain degree disposable. Since the 
participative user has become increasingly computer lite- 
rate, some of the initially requested DSS features have 
revealed to be less useful. In fact, the ease-of-use and 
structured features of the system has reduced the DSS to 
perform only for a well-defined set of data manipulation and 
reporting. To perform unusual data manipulation, a trained 
user can now directly use the DSS generator command lan- 
guage. However, this seems to be true only for the user who 
has worked closely with the development of the system. 
Other users, who are primarily casual users and non computer 
experts, are expected to find the system useful. 

B. RECOMMENDATIONS FOR FUTURE EXTENSIONS 

By definition, the adaptive design should help the system 
to be progressively expanded. The current system primarily 
handles data management and report generation. There are a 
number of possible enhancements that could be added to the 
current release of the AS database reporting system-. 
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1. Forms Handling 

The AS department office information system operates 
via a multiplicity of predesigned paper forms such as travel 
orders, purchasing stubs, reimbursement forms, etc.. These 
forms have been processed by office clerks using typewrit- 
ers. Additional report procedures could be added to the 
current release of the AS Database Reporting System to 
generate these stub from the computer printers. Such a 
capability would significantly improve the office produc- 
tivity by reducing typing errors, and duplication of effort 
in twice entering the same set of information using both the 
typewriter and the computer. 

The generation of office forms for the printer can 
be done by using the K-Report report generation feature to 
replicate forms. This could be done without much difficul- 
ty. It should be noted however that continuous customized 
computer forms must be ordered. 

2 . Financial Planning 

To support financial planning, data that reflect the 
balances of various expenses accounts should be rapidly 
computed. Also, the user should be able to import selected 
data from data tables to handle spreadsheet analysis. The 
use of spreadsheets would allow the user to perform what-if 
analysis on various financial decisions. Furthermore, a 
trend analysis can be supported by the system by displaying 
various graphical charts of key financial figures. To imple- 
ment the financial planning capability to the system, the 
following steps are suggested: 

1. Join relevant financial data tables together. 

2. Write procedures to compute conditional aggregate 
values . 

3. Import aggregate values into the K-Man spreadsheet. 

4. Describe procedural steps for the user to manipulate 
spreadsheet functions. 

5. Import data from the spreadsheet to the K-Graph 
feature for graph generation. 
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3 . Regulation Engineering 

As with any governmental agency, the financial 
decision making process has to strictly follow the laws and 
regulations determined by the Federal Government. These 
regulations include travel expenses (e.g., 10% money cannot 
be used for Invitational Travel Order), personnel (e.g., the 
OPTAR account cannot be used for personnel salaries), and 
equipment purchases (e.g., sole source justification is 
needed for expenses whose amount is more than one thousand 
dollars; purchase using OM & N funds cannot exceed three 
thousand dollars). The responsibility to make sure that 
financial decisions are legal relies solely on the user. 
Due to the complexity and diverseness of regulations, it 
would be useful that the system can store some knowledge in 
the system. The latter can be used as a internal comptrol- 
ler that instantaneously checks the legal aspect of all 
financial transactions. 

The knowledge on various legal issues and financial 
practices could be acquired and integrated into the current 
AS database reporting system by using GURU? an off-the-shelf 
expert system development tool and a by-product that can be 
fully interfaced with K-Man. 
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V. CONCLUSIONS 



The purpose of this thesis was twofold: 

1. To use the adaptive or prototyping approach to imple- 
ment a data-oriented DSS for cracking financial trans- 
actions of the Naval Postgraduate School's Department 
of Administrative Sciences. 

2. To derive from the system development, some observa- 
tions on the impact of the prototyping approach on 
systems design. 

These two objectives have been achieved. First, the AS 
Database Reporting System has been used since January 1936. 
The system has gained in usage as the system has benefited 
from enhanced capabilities. Also, the number of systems 
users has also increasing. Travel clerks and purchasing 
clerks begin to use the system on a regular basis. Various 
members of the department also use the system on a casual 
basis via the Management Assistant who is currently the 
database administrator. Second, this thesis confirmed some 
of the early results found recently on the DSS literature 
regarding the DSS design strategy. 

The results of this study was reported both in the main 
body of the thesis and the appendices. Chapter I described 
basic concepts and issues relating to prototyping. Chapter 
II reported the development process of the AS Database re- 
porting system in light of the adaptive design. The "Diary. 
Approach" was adopted to record development activities and 
the interaction between the user and the system developer. 
During the development process, close interaction with the 
user has lead to three modifications of the AS Reporting 
System Architecture. Chapter III analyzed and discussed the 
results of the experiment. Some suggestions for future 
extensions of the current database were also presented. The 
integration of spreadsheet analysis, graphical displays, and 
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a knowledge-based system to the current version of the 
AS Database Reporting System would greatly improve the 
decision support role of the implemented financial system. 
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I. INTRODUCTION 



The purpose of this user's manual is to guide the first 
or casual user to get acquainted with the operations of the 
Administrative Sciences (AS) Data Base Reporting System (the 
AS System) . The current version of the AS System is an 
interactive, menu driven data base management system. This 
system is used to input, edit and store the U.S. Naval 
Postgraduate School's Administrative Sciences Department's 
financial data (i.e., the AS Department's OPTAR, data rela- 
tive to the AS Department's indirect cost and research ac- 
count, and the Department's equipment inventory) and to 
create financial reports for budgetary planning. Because 
this is a menu driven system, prior programming knowledge is 
not required to use the AS System. 

For the sake of simplicity, aspects that are related to 
the conceptual design and technical specifications of the AS 
System are described in separate documents — the Program- 
mer's Manual and the thesis titled "The AS Financial Report- 
ing System: Some Experience on Prototyping and User Inter- 
action"; written by R.L. 3ooker. 

This manual is organized as follow. General and most 
frequently asked information are provided in chapters I 
through III while more specific and less used information 
are provided in chapters IV and V. 
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II. PRINCIPAL USERS 



The principal users of this system are expected to oe 
the AS Department's Support Services Supervisor, Management 
Assistant, Travel Clerk and Procurement Clerk. The Manage- 
ment Assistant is the AS System's Data Base Administrator 
(DBA) . All request or suggestions for changes and major 
problems should be referred to the Data Base Administrator. 

Table I indicates some functions that the AS System can 
currently provide to support the tasks of each of the above 
mentioned users. 



USERS 



DUTIES 



SYSTEM SUPPORT 



Support Services Supervises, plans and Status update on 

Supervisor coordinates the de- personnel. 

partment's support 
functions and cleri- 
cal support. 



Management As- 
sistant 



Travel Clerk 



Procurement 

Clerk 



Interprets reports of Updates financial 

all financial receipts, balances from 

expenditures and re- purchase and tra- 

cords. Identifies vel expenses re- 
contributing sources ports, 

and makes comparisons 
to establish budget 
trends . 



Prepares and manages Outstanding TO(s) 

all travel related report 

documents for de- 
partment. Coordi- 
nates and manages all 
travel related ar- 
rangements . 



Receives requests for 
department procure- 
ment. 



Requisition Sta- 
tus and Inventory 
reports 



TABLE I. SYSTEM FUNCTIONS 
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III. OPERATION OF SYSTEM 



A. LOCATION 

The System is resident on the IBM-PC XT in room Inger- 
soll 230. 

B. START-UP (BOOT-UP) 

1. Place the provided DOS version 2.1 diskette in flop- 
py drive (slot) A of the PC; the left drive in Fi- 
gure 1. 

2. The computer and printers are connected to a toggle 
switch under the computer table. The on-off switch 
on the computer should always be in the on position. 
Turn the toggle switch on to turn the computer and 
printer on. The computer will run its system's 
checks. (Steps 1 and 2 are considered a cold start) 
Note the warm start procedures below. 

3. When the C> prompt appears, type in KMAN HAINMEN . 

4. When prompted, type in your name and password . 

5. When the AS System menus appear, make your menu 
selections. 

Warm Start Procedures : 

If the power has been previously turned on and the provided 
DOS version 2.1 diskette has been previously loaded, steps 1 
and 2 of the start-up instructions may be ignored. Instead, 
together press the two keys marked CONTROL and ALT, and then 
the key marked DELETE (This is considered a warm start.). 
Now perform steps 3 through 5. 
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C. EXIT 

1. Select the last option in the main menu to exit the 
AS System. 

2. Turn the toggle switch off. (power off) 

3. Take the diskette out of the computer. 



IBM Monochrome Display 




Figure 1. I3M PC 
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D. DATA MANIPULATION 

All of the table manipulation instructions are displayed 
on 3LUE menus. The following options are available for each 
table: 

- browse a table : allows viewing of all the 

records in a table 

- update a record : allows modifications of 

the contents of records 
given specific selection 
criterion 



- add a record 



: allows the addition of a 

record to a table 



- delete a record : allows the deletion of a 

record from a table based on 
specific criterion 

- return to calling menu : will display the next 

higher level menu 



Appendix B is a chart of the AS Systems menu's hierarchy 
and Appendix C displays the AS System's Menus. 

1 . To View All of the Records in a Table . 

Select the "browse a table" option in the specific 
table menu. A form will appear displaying the first record 
within the table. The table is sorted based on a predeter- 
mined requirement. The bottom of the form contains instruc- 
tions for moving the cursor on the form and for viewing the 
prior or next record. If an attempt is made to display pass 
the last record in a table, the cursor will move to the BOT- 
TOM LEFT corner of the screen and the table's menu will be 
displayed. 

Note — Pressing ESC in the BOTTOM LEFT corner be- 
low. 

2 . To Update a Record or Group of Records in a Table . 

Select the "update a record" option in the specific 

table's menu. A form will appear requesting the entry of a 



33 



specific value that will select only the records containing 
that exact value. Enter the selection value. 

a. If a record meets the selection value criterion, 
the only record, or the first record, that meets 
the selection criterion will be displayed on a 
form. The bottom of the form contains instruc- 
tions for moving the cursor on the form and for 
viewing the prior or next record that meets the 
selection criterion. If an attempt is made to 
display pass the last record that meets the 
selection criterion, the cursor will move to the 
30TT0M LEFT corner of the screen and the table's 
menu will be displayed. 

b. If a record does not meet the selection criteri- 
on, the following message will be displayed - 
"No records satisfy this request". The table's 
menu will then be displayed. Confirm that the 
selection value was entered or spelled correctly 
by selecting the "browse a table" option. 

Repeat the steps to update a record. If the 
problem continues, notify the AS System Admini- 
strator. 

Note - Pressing ESC in the BOTTOM LEFT corner below. 

3 . To Add a Record . 

Select the "add a record" option in the specific 
table's menu. A form will appear in which the data for a 
specific record is entered. The form contains instructions 
for moving the cursor on the form. 

Note - Pressing ESC in the 30TT0M LEFT corner below. 

4 . To Delete a Record in a Table . 

Select the "delete a record" option in the specific 
table's menu. A form will appear requesting the entry of a 
selection value that will enable the display of only the 
record (s) containing that selection value. Enter the selec- 
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tion value. Another form will appear confirming deletion of 
a record. If Y is entered, you are committed to deleting a 
record. If N is entered, the table's menu will be display- 
ed and no record (s) will be deleted. 

If Y is entered for deleting a record and a record 
meets the selection value, the only record, or the first 
record, that meets the selection criterion will be displayed 
on a form. The bottom of the form contains instructions for 
moving the cursor on the form and for viewing the prior or 
next record that meets the selection criterion. Place the 
cursor in the TOP LEFT corner of the form and press the ESC 
key to delete a record. ONLY the record that is displayed 
when the ESC key is pressed will be deleted. After the re- 
cord has been deleted, the table's menu will be displayed. 

Note - Pressing ESC in the BOTTOM LEFT corner below. 

WARNING 

If more than one record meets the selection criteri- 
on, all of the records that meet the criterion will be able 
to be displayed and deleted. If you attempt to display pass 
the LAST record that meets this criterion, this record will 
be DELETED without the requirement to press the ESC key. 
Therefore, check the displayed record to ensure that it is 
not the record for deletion before attempting to display the 
next record. Remember, the LAST record that matches your 
selection criterion will be DELETED if displaying pass the 
LAST record is attempted. 

Pressing ESC in the BOTTOM LEFT Corner . 

If ESC is pressed while the cursor is in the 30TT0M LEFT 
corner, the following message will appear: FEXIT or F ABORT 
hit - are you sure (Y/N) ? 

- Y will exit the AS System. 

- N will display the table's or report's calling menu. 
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E. PRINTING PREDEFINED REPORTS 

For the current version, five reports have been gene- 
rated and could be automatically invoked. These include the 
Quarterly Inventory, Outstanding TO(s), Personnel Funding, 
Personnel History and the Requisition Status reports. Ap- 
pendix D contains samples of the AS System's Reports. The 
menus for REPORT printing are colored BROWN. Select the 
menu containing the report that is required to be printed. 
ENSURE that the printer is CONNECTED to the computer and 
turned ON. Select the option for the report that requires 
printing. (Due to numerous sorts involved in printing of the 
Personnel Funding Report, there is a 1-3 minute wait before 
the report is printing.) After the report has been print- 
ed, the calling menu will be displayed. 

Note — If printing of a report is attempted while the 
printer is not on or connected to the computer, an 
error message will be displayed. Connect the printer 
and turn it on. Now attempt to print the report. 

Note — All reports are formatted for the NEC 3550 prin- 
ter. Use of other printers will require changes to the 
AS System's programs. Notify the DBA if this is neces- 
sary . 
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IV. TABLES 



N 4JI 



The AS System's data is stored in the following tables: 



1. Indirect - 

2 . OPTAR - 

3. Other - 

4. Personnel Funding 

5. Personnel History 

6. Purchase - 

7. Travel Expenses - 



information on research and other 
reimbursable sources of funds and 
resulting Indirect Costs to De- 
partment 

contains information on Depart- 
ment's operating budget 
contains information on other 
sources of Department funding 
contains personnel expense data 
contains personnel data for staff 
positions within the AS Department 
contains data on Department and 
research purchases 
Department and Research travel 
expenses 



A. SOURCES OF DATA FOR TABLES 



Indirect Table: 
4 - entry date 
- status 



St« TS f 



- principal 

Snt r 
( / 



date record entered into the AS System 
if research, pending when first entered 
into AS System and changed to funded when 
funding document received from Comptroller 
if other reimbursable, funded 
if research, last name of principal inves- 
tigator on proposal 

if other reimbursable, from Code 002 Reim- 
bursable Funds Status Report 
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sponsor 



t>T r 

proposal 

SC io ( 



- period 

SOt 20 



estimate 



Vi 4 



- DEPTIC 

i° 4 — * 



- MI PR 

•jrft < 



- ref# 

- authorized 



Mi. 



if research, from proposal 

if other reimbursable, source from Code 002 
Reimbursable Funds Status Report 
if research, actual title of proposal (con- 
firm with funding document when funding 
document received) 

if other reimbursable, title from Code 002 
Reimbursable Funds Status Report 
if research, dates specified on proposal 
for performance of research 
if other reimbursable, no entry 
if research, estimated cost of research for 
current fiscal year from proposal's budget 
page 

if other reimbursable, no entry 
if research, the amount that the department 
is expected to receive in indirect cost; 
calculated from the proposal's budget page 
(10% of total labor charges) 
if other reimbursable, no entry 
if research, MIPR # from Block #5 of fund- 
ing document (Military Inter-department 
Purchase Request) 
if other reimbursable, no entry 
if research. Reference # from Block #5 of 
funding document (Order for Work and Servi- . 
ces, NAVCOMPT 2275) 
if other reimbursable, no entry 
if research, actual authorization from Code 
002 Memorandum (Funds Authorization Grant/ 
Change) 

if other reimbursable, act auth from Code 
002 Reimbursable Funds Status Report 
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- costcode 



if research, job order from Code 002 Memo- 
randum (Funds Authorization Grant/Change) 

- if other reimbursable, JO # from Code 002 
Reimbursable Funds Status Report 

- expiration - if research, exp date from Code 002 Memo- 

randum (Funds Authorization Grant/Change) 
fj JA- U Jj * 

- if other reimbursable, exp date from Code 
002 Reimbursable Funds Status Report 

- ICRECD - if research. Indirect (Chairman) from Code 

002 Memorandum (Funds Authorization Grant/ 
Change) 

/J ? - - • 

- if other reimbursable, ind cost (chair) 
from Code 002 Reimbursable Funds Status 
Report 

- staff - if research, total of all support labor 

labor on proposal's budget page 

- if other reimbursable, no entry 

-as - if research, amount which the principal 

appropria- investigator agreed to give the Department 
tion 



fj* 



- doc# 

ST tsr 



- segment 



5K 



- serials 



- if other reimbursable, verbal authorization 
from principal investigator or Department 
Chairman. 

- if research. Document # from Slock #2 of 
funding document (Order for :'7ork and Ser- 
vices, NAVCOMPT 2275) 

- if research, segment from Code 002 Memoran- 
dum (Funds Authorization Grant/Change) 

- if other reimbursable, seg from Code 002 
Reimbursable Funds Status Report 

- if research, serial #*s from Code 002 Memo- 
randum (Funds Authorization Grant/Change) 

- if other reimbursable, doc #*s from Code 
002 Reimbursable Funds Status Report 
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!50 / 



- 



fj ^ J 






N 4 



OPTAR Table: 

- entry date - 

- date 

- authorized - 



- travel 

authorized 

M * - - . - 

- actual 



- travel 
actual 

p * - 

- difference - 

\j)fru A-l pi CL D 

fa & j PcJ 1 H ) 

- travel 
diff 

I T f ‘tuft, j 1 

- fe-'( ■ 

jo dd Jd ■ J J 



date record added to AS System 
date of latest authorization memo 
received 

total amount authorized? from Code 00 Memo- 
randum (Fiscal Year Interim Operating Tar- 
get) 

amount designated for travel; from Code 00 
Memorandum (Fiscal Year Interim Operating 
Target) 

changes in authorized? from reissues of 
Code 00 memorandum (Fiscal Year Revised 
Interim Operating Target) 

changes in travel authorized? from reissues 
of Code 00 Memorandum (Fiscal Year Revised 
Operating Target) 

(actual - authorized) ; computed by AS Sys- 
tem 

(travel actual - travel authorized) ; compu- 
ted by AS System 
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Other Table: 



tj 



$T(L 



comes from verbal authorization of De- 
partment Chairman or Associate Chairman for 
Research and the principal investigator 

- entry date - date that the record is entered into the AS 

System 

- status - status of availability of funds to Depart- 

^ ment? pending, received, or expired 

- expiration - Expires from Research Administration print- 
out or Exp Date from Reimbursable Funds 
Status Report provided at time of agreement 

- Account from Research Administration print- 
out; or principle investigator from Reim- 
bursable Funds Status Report 

- sponsor from Research Administration print- 
out or source from Reimbursable Funds Sta- 
tus Report 

- title from Research Administration printout 
or Reimbursable Funds Status Report 

- cost code from Research Administration 
printout or JO# from Reimbursable Funds 
Status Report 

authorized - amount agreed upon for Departmental use 
remarks - misc 



a j dd ' d* 1 ^ 

- principal 

^ ^ r 

- sponsor 

5 r«. 3* s-r 

- proposal 

S rn iJo C 

- costcode 

5 f 



S tn so r 
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Personnel Funding Table: all data comes from the depart- 
ment's outgoing Support Employment 
Schedule 

- entry date - date of record entry to AS System 



- last name 


- from employee , from outgoing Support Em- 
ployment Schedule Memorandum 


- first name 


- from Personnel History table 


- fund date 


- date of outgoing Support Employment Sche- 
dule Memorandum 


- fund from 


- date funding period commences, dates from 
outgoing Support Employment Schedule Memo- 
randum 


- fund to 


- date funding period terminates, dates from 
outgoing Support Employment Schedule Memo- 
randum 


- # of days 


- number of 8-hour days worked during funding 
period, days from outgoing Support Employ- 
ment Schedule Memorandum 


- hours 


- number of hours in excess of 8-hour days 
worked, hours from outgoing Support Employ- 
ment Schedule Memorandum 


- cost code 


- from outgoing Support Employment Schedule 


- code 


- from the following department codes: 
- SS; support salaries 


- amount 


- calculated based upon rate and number of 
. days/hours worked 


- rate 


- employee's rate during funding period, rate 
from personnel funding 


- hours per 


- number of hours employee worked during 


week 


funding period, hours per week from person- 
nel history 



42 



- first 



- DOB 



Personnel History Table; . 

- entry date - date record is entered into table 

- last name - from block # 1 of Standard Form 50 (Notifi 

cation of Personnel Action 

- from block t 1 of Standard Form 50 (Notifi 
cation name of Personnel Action) 

- date of birth from block # 4 of Standard 
Form 50 (Notification of Personnel Action) 

- effective - from block # 14 of Standard Form 50 (Noti- 
fication of Personnel Action) 

- from block # of Standard Form 50 (Notifi- 
cation of Personnel action) ; T = tempora- 
ry; P - permanent 

- from block # 27 of Standard Form 50 (Noti- 
fication of Personnel Action) ; assigned by 
CPO 



- status 



- billet 



TT 



- job title 

- elements/ 
stds set 

- work unit 

- work 
- PD # 

- series 

- grade 

- step 



- from block # 27 of Standard Form 50 (Noti- 
fication of Personnel Action) 

- date elements and standards set for perfor 
mance review; from current performance ap- 
praisal 

- assigned by support services supervisor, i 
any 

- immediate supervisor from Block # of 
Position director Description cover sheet 

- from block # 27 of Position Description 
cover sheet or block # 27 of Standard Form 
50 (Notification of Personnel Action) 

- from block # 29 of Standard Form 50 (Noti- 
fication of Personnel Action) 

- from block # 30 of Standard Form 50 (Noti- 
fication of Personnel Action) 

- from block # 31 of Standard Form 50 (Noti- 
fication of Personnel Action) 
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annual- 
salary 
hours per 
week 

expire 



rate 

remarks 



from block # 32 of Standard Form 50 (Noti- 
fication of Personnel Action) 

- * of hours worked per week, from Block # 37 
of Standard Form 50 (Notification of Per- 
sonnel Action) 

- date of expiration of temporary appoint- 
ment, from block # 18B of Standard Form 50 
(Notification of Personnel Action) 

- value automatically computed by the System 

- misc 
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Purchase Table; 



- entry date 

- document # 

- costcode 
vendor 

- item 
description 

- stock # 

- estimate 

- priority 

- RDD 

- code 



date that the record is entered into AS 
System 

from block # 36-43 of DD Form 1348 (Requi- 
sition System Document) 

or JO#, from block # 46-50 of DD Form 1348 
(Requisition System Document) 
from block # A of DD Form 1348 (Requisition 
System Document) 

from block # 8-22 of DD Form 1348 (Requi- 
sition System Document) 

or part #, from block # 8-22 or Remarks of 
DD Form 1348 (Requisition System Document) 
from block # T of DD Form 1348 (Requisition 
System Document) 

from block # 60-61 of DD Form 1348 (Requi- 
sition System Document) 

required delivery date, from block # 62-64 
of DD Form 1348 (Requisition System Docu- 
ment) 

from the following department codes: 

- LO? transportation of things (Federal 
Express) 

- MR? rental of equipment 

- PM? maintenance of minor property 

- PP? maintenance of plant property 

- QH? honoraria 

- QT? registration fees 

- TS? consumable supplies 

- WM; minor property acquisition 

- WMC? computer equipment/accessories 

- WP; plant property acquisition 

- WPC? computer equipment 

- YP? commercial printing 
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requestor 



PO# 

received 

firm 

price 

serial 

pa# 

issue 

location 

qty 

remarks 



- last name of individual who requested pur- 
chase, from Block # of DD 1348 (Requisi- 
tion System Document) 

- purchase order # from Block # 2 of DD 1155 
(Purchase Order) 

- date item received, from receiving copy of 
DD 1348 (Requisition System Document) 

- final price, from Block □ of DD 1348 (Re- 
quisition System Document) or Block # 23 of 
DD 1155 (Purchase Order) 

- if a plant account item, from equipment 

- plant account #, from inventory records 
forwarded by receipt control 

- name of individual plant account equipment 
issued to, from 

- location of plant account equipment, from 

- from Block # of DD 1348 (Requisition Sys- 
tem Document) 

- misc 
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Travel Expenses Table: 

- departure - if civilian orders, from Block # 10B of DD 

1610 (Request and Authorization for TDY 
Travel of DOD Personnel) 

- if military orders, from Block # 9 of NAV- 
PERS1320/16 (TEMADD Travel Orders) 

- if invitational orders, from Proceed on or 
about from NAVS04650/10 (Invitational Tra- 



- requester 



- location 



code 



- estimate 



vel Order) 

- if civilian orders, from Block # 2 of DD 
1610 (Request and Authorization for TDY 
Travel of DOD Personnel) 

- if military orders, from Block # 3 of MAV- 
PERS1320/16 (TEMADD Travel Orders) 

- if invitational orders, from Block # 1 of 
NAVS04650/10 (Invitational Travel Order) 

- destination of traveler 

- if civilian orders, from Block # 11 of DD 
1610 (Request and Authorization for TDY 
Travel of DOD Personnel) 

- if military orders, from Block # 13 of NAV- 
PERS1320/16 (TEMADD Travel Orders) 

- if invitational orders, from Block # 1 of 
NAVS04650/10 (Invitational Travel Order) 

- type of travel from the following depart- 
ment codes: 

- El; invitational travel 

- ET; TAD travel 

- estimated cost of travel 

- if civilian orders, total from 31ock # 14 
of DD1610 (Request and Authorization for 
Travel of DOD Personnel) 

- if military orders, total from Block # 18 
of NAVPERS13 20/16 (TEMADD Travel Orders) 
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costcode 



doc # 



advance 

return 
claim date 
firm price 
entry date 



if invitational orders, from for the pur- 
pose of from NAVS04650/10 (Invitational 
Travel Order) 

or JO#, from travel orders 

if civilian orders, from Block # 19 (62217- 
XXXXX) of DD1610 (Request and Authorization 
for Travel of DOD Personnel) 
if military orders, from Block # 17(8) of 
NAVPERS1320/16 (TEMADD Travel Order) 
if invitational orders, from Block # 7 
(62271XXXXX) of NAVS04650/10 (Invitational 
Travel Order) 

if civilian orders, tango from 31ock # 19 
of DD1610 (Request and Authorization of TDY 
Travel of DOD Personnel) 

if military orders, tango from Block # 4 of 
NAVOERS1320/16 (TEMADD Travel Order) 
if invitational orders, from Block # 7 
(ITXXXXX) of NAVS04650/10 (Invitational 
Travel Order) 

if civilian orders, from Block #15 of DD- 

1610 (Request and Authorization of TDY 

Travel of DOD Personnel) 

if military orders, from Block # 21 of 

NAVPERS1320/16 (TEMADD Travel Order) 

if invitational orders, no entry 

date of return, calculated from travel 

orders 

from 31ock # 14 of DD Form 1351-2 (Travel 
Voucher or Sub-voucher) 

total of Blocks #7 and # 10 from DD Form 
1351-2 (Travel Voucher or Sub-voucher) 
date of record entry to AS System 
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DOV # 



DO Voucher No, from Block # 10 of DD Form 
1351-2 (Travel Voucher or Sub-voucher) 
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Inventory Table: 



- pa# 

„ 

- vendor 



t r 



plant account number, from Block # 54 of DD 

1342 (DOD Property Record) 

from Block # 14 of DD 1342 (DOD Property 

Record) 



r 






description- from Block # 26 of DD 1342 (DOD Property 



serial # 

PO# 

cost 



Record) 

- from Block # 17 of DD 1342 (DOD Property 
Record) 

- purchase order number, from Block # 25 of 
DD 1342 (DOD Property Record) 

- from Block # 6 of DD 1342 (DOD Property 



• — Record) 



- received 


- from Block 


# 


54 


of 


DD 


1342 


(DOD 


Property 


(J rU J J A 

- issue 


Record) 

- from Block 


# 


28 


of 


DD 


1342 


(DOD 


Property 


ri- - v 

- location 


Record) 

- from Block 


JL 

Tt 


28 


of 


DD 


1342 


(DOD 


Property 



Record) 
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V. ERRORS AND ABNORMAL PROCESSING 



A. ERRORS 

Notification of errors are given by two methods: 

1. The AS System will display a WHITE on RED flashing 
message, which will prompt for a legal entry. When enter- 
ing numbers, only use the numbers along the top of the 
keyboard. 

2. The language (KnowledgeMan) or the Disk Operating 
System (DOS) will display a WHITE on BLACK message. The 
following are examples of messages which may be displayed: 

a. Do you want to escape (Y/N) ? - Normally enter N 
(no) . 

b. <type> error reading <device>? Abort, Retry, Ignore? 
- Normally enter R (retry) . 

If display of the message continues, enter A (a- 
bort) . 

c. A warning message may appear; example - File not 
found. Note the error message, exit the AS System, 
remove the diskette and notify the System Admini- 
strator . 

3. ABNORMAL PROCESSING 

If the AS System does not process normally (takes a 
longer than normal time to process), press the ESC key. 
Pressing the ESC key will either return processing to the 
calling menu or exit the AS System and the KnowledgeMan 
prompt ( _ ) will appear. 

Then perform the following: 

1. If processing is returned to a calling module, attempt 
to continue normal processing. If the problem contin- 
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ues, turn the power off, remove the diskette and noti- 
fy the System Administrator. 

2. If the KnowledgeMan prompt ( _ ) appears, type in KHAN 
MAINMEN and attempt to continue normal processing. If 
the problem continues, turn the power off, remove the 
diskette and notify the System Administrator. 
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APPENDIX B 

Diagram of the AS System's Menus 




! 


1 

[ 


• ; 

! 

i 

i 

! 

i 


i 
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Purchase 


j Reports 




Reports 
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1 
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2. 2 j 
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APPENDIX C 
AS SYSTEM'S MENDS 



AS Financial Reporting System 

Main Menu 

1 - Data Base 

2 - Reports . 

3 - To Quit 

enter your selection _ 



0 
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Data Base 



1 - Expenses 

2 - Income 

3 - Property 

4 - Return to calling menu 
enter your selection 



1 
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Database Expenses 



1 - Personnel 

2 - Travel 

3 - Purchase 

4 - Return to calling menu 
enter your selection _ 

1.1 
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Personnel 



1 - Personnel Funding 

2 - Personnel History 

3 - Return to calling menu 

enter your selection _ 



1 . 1.1 
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Personnel Funding Expenses 



1 - Browse a Table 

2 - Update a Record 

3 - Add a Record 

4 - Delete a Record 

5 - Return to calling menu 

enter your selection _ 



1 . 1 . 1.1 
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Personnel History Expenses 



1 - Browse a Table 

2 - Update a Record 

3 - Add a Record 

4 - Delete a Record 

5 - Return to calling menu 

enter your selection 



1 . 1 . 1.2 
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Travel Expenses 



1 - Browse a Table 

2 - Update a Record 

3 - Add a Record 

4 - Delete a Record 

5 - Return to calling menu 

enter your selection _ 



1 . 1.2 
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Purchase Expenses 



1 - Browse a Table 

2 - Update a Record 

3 - Add a Record 

4 - Delete a Record 

5 - Return to calling menu 

enter your selection _ 



1.1.3 



63 



Data Base Income 



1 - OPTAR 

2 - Indirect 

3 - Other 

4 - Return to calling menu 
enter your selection _ 



1.2 



64 



OPTAR Income 



1 - Browse a Table 

2 - Update a Record 

3 - Add a Record 

4 - Delete a Record 

5 - Return to calling menu 

enter your selection _ 



1 . 2.1 
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Indirect Income 



1 - Browse a Table 

2 - Update a Record 

3 - Add a Record 

4 - Delete a Record 

5 - Return to calling menu 

enter your selection __ 
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Other Income 



1 - Browse a Table 

2 - Update a Record 

3 - Add a Record 

4 - Delete a Record 

5 - Return to calling menu 

enter your selection _ 



1.2.3 
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Inventory Property 



1 - Browse a Table 

2 - Update a Record 

3 - Add a Record 

4 - Delete a Record 

5 - Return to calling menu 

enter your selection 



1.3 
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Reports 



1 - Personnel 

2 - Purchase 

3 - Financial 

4 - Travel - Outstanding TO(s) 

5 - Return to calling menu 

TURN THE PRINTER ON enter your selection 



2 
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Personnel Reports 



1 - Personnel Funding 

2 - Personnel History 

3 - Return to calling menu 

enter your selection _ 



2.1 
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Purchase Reports 



1 - Requisition Status 

2 - Quarterly Inventory 

3 - Return to calling menu 

enter your selection _ 



2.2 
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APPENDIX D 

SAMPLE AS SYSTEM REPORTS 
Outstanding TO(s) 



DEPARTMENT OF ADMINISTRATIVE SCIENCES REPORT DATE: 03/10/36 

REPORT: OOTSTA.IDING TO(s) REVISION DATE: 



COST CODE 


DOC J 


REQUESTOR 


CLAIM 


DOV 4 


EGD05 


6TOA2226 


Coffey 


- - 0 




EGD05 


6TOA2227 


Coffey 


- - 0 




EGDOO 


6ITA3361 


esc 


- - 0 




EGDOO 


6TOA3350 


Greer 


85-11-12 


’ 


EGDOO 


6TOA3352 


Schneidewind 


85-12-02 


• * 


EGDOO 


6ITA3351 


Suchan 


85-12-13 


X3559 


EGDOO 


.. 6TOA3353 


Macfcay 


85-01-29 


X4744 


EGDOO 


6TOA3354 


Landeros 


86-02-11 


X5185 


EGDOO 


6TOA3355 


Hale 


86-02-19 


X5374 


EGDOO 


6TOA3361 


Elam 


- - 0 


• 


EGDOO 


6TOA3356 


Straub 


- - 0 




EGDOO 


- • 6TOA3357 


Nidmeyer 


- - 0 




EGDOO 


6TOA3358 


Conger 


- - 0 




EGDOO 


6ITA3359 


Pracht 


- - 0 




EGDOO 


6ITA3360 


Schocken 


- - 0 


• 


GUCTN 


6TOA4820 


Haag 


85-11-25 


• 


GUCTN 


6TOA4821 


Bui 


- - 0 


• 


NONE 


851201 


Evered 


- - 0 


» 


NONE 


851202 


McMasters 


- - 0 




RCAZ2 


6TOA7002 


Lapatra 


85-11-20 




RCAZ2 


6TOA7001 


. BUDDENBERG 


85-12-04 


X3163 


RCAZ2 


6TOA7003 


LaPatra 


85-12-12 


X3524 


RCAZ2 


6TOA7005 


Jones 


86-01-29 


X4743 


RCFCF 


6TOB7725 


Creighton 


- - 0 




RCFCF 


6TOA7727 


Creighton 


- - 0 




RCFCF 


6TOB7726 


Creighton 


- - 0 




RCFCF 


6TOB7727 


Creighton 


- - 0 





Page 1 
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Personnel Funding 



DEPARTMENT OF ADMINISTRATIVE SCIENCES 
.REPORT: PERSONNEL FUND INS 



NAME 


FUND FROM 


FUND TO 


323/ifE 


• 


- - 0 


- - 0 


0 




- - 0 


- - 0 


0 


Allen, Monique 


35-10-14 


35-10-14 


0 




35-10-13 


35-11-10 


0 




83-U-ll 


35-11-11 


0 


. . . 


35-11-12 


85-11-27 


0 


•• 


35-11-28 


35-11-28 


0 


- 


35-11-29 


85-12-07 


0 




35-12-08 


35-12-24 


0 - 




35-12-25 


15-12-25 


0 • 




35-12-26 


35-12-31 


a 




36-01-01 


36-01-01 


0 


• •« 


36-01-02 


36-01-05 


0 . 


• f - • 


36-01-06 


36-01-08 


0 


•• 


36-01-09 


36-01-19 


0 


— 


36—01-20- 


36-01-20 


0 




36-01-21 


36-02-05 


0 




36-02-17 


36-02-17 


0 




36-10-01 


35-10-13 


0 


Baleseen, Angela 


35-10-01 


35-10-13 


0 




35-10-14 


35-10-14 


0 


- 


.35-10-15 


35-11-10 


0 




85-11-11 


35-11-11 


0 




35-11-12 


35-11-27 


0 




35-11-28 


35-11-28 


0 




35-11-29 


35-12-22 


0 



REPORT DATE* 03/10/86 



SOOU 


COST CODE 




RATE 




AHOOUT 


0 




$ 


0.00 


3 


0.00 


0 




3 


0.00 


3 


0.00 


0 


ZHOLL 


3 


0.00 


3 


0.00 


0 


H3TC31 


3 


0.00 


3 


1362.49 


0 . 


ZHOLL 


$ 


0.00 


3 


0.00 


0 - 


R3TCS1 


3 


0.00 


3 


360.52 


0 


ZHOLL 


3 


0.00 


3 


0.00 


0 


2DCC51 


3 


0.00 


3 


430.26 


0 * 


SMC51 


y 


- 0.00 


3 


360.52 


, 0 • * 


ZHOLL 


3 


0.00 


3 


0.00 


’o ■ 


RNC31 


3 


0.00 


3 


236.34 


0 • 


■mOLL 


3 


0.00 


3 


0.00 


' 0 


3WC51 


3 


0.00 


3 


143.42 


0 


ZALSL 


3 


0.00 


3 


0.00 


• 0 


aMC51 


3 


0.00 


3 


645.39 


0 


ZHOLL 


3 


0.00 


3 


0.00 


O' 


R*C31 


3 


0.00 


3 


360.52 


0 • ’ 


ZHOLL 


3 


0.00 


3 


0.00 


0 


SWC31 


3 


0.00 


3 


645.39 


0 


RLQZP 


3 


0.00 


3 


545.40 


0 


ZHOLL 


3 


0.00 


3 


0.00 


0 


HLQZP 


3 


0.00 


3 


1090.30 


0 


ZHOLL 


3 


0.00 


3 


0.00 


0 


RLQZP 


3 


0.00 


3 


727.20 


0 


ZHOLL 


3 


0.00 


3 


0.00 


0 


RLQZP 


3 


0.00 


3 


909.00 



OATS 

01 

u 

01 

u - 

01 - 

06 : 

u ; 

01 

04 . 

01 

02 

03 

0* 

01 

12 

01 

09 

06 

01 

12 

01 

08 

01 

10 

Page 
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Personnel History 



depart-is-t o? .uarnsraATivs scizjces 

REP OKT TITLE* PtaSOmiTL 3ISTQHI 



UAM 


JOB TITLE 


SERIES 


GRAD! 


Allen, Monique 


Research Technic inn 


303 


5 


aaiesterl* Angela 


Editorial Asst. (Typ 


1037 


s 


auttiee-rtiller* aetn 


inn eg leant Assistant 


344 


7 


Cochrane* Candl 


Research Technician 


303 


.5 


Coelngtoa* Aar In 


Travel Clerk (Typing 


2132 


4 ' 


Da* Is* Hsian 


Statistician (Ops. k 


1330 


11 


Dickey* Laurence 


Support Services Sup 


342 


. 3. 


George* Xaren 


Technical .Manuals *4r 


1063. 


* 7 * 


Gouveia* Cynthia 


Copier/Oupl lest lag 0 


330 


2 


Howard* La Verne 


Clerk-Typist 


32 2 


4 


Humphreys* Sanaa 


Clerk-Typist 


322 


4 


Hutchings* Ren* re 


Research Technician 


303 


‘ 3 


jeans* green 


clerk-typist ' 


322 


3 


locher* Kathryn 


Labor Economist 


no 


U 


Krauthammer* VIII lea 


Social services Aid 


3136 


4 


Lathrop, Mary Ellen 


Social Science Analy 


101 


7 


Lindsay* Caryl 


Coaputer Programmer 


334 


7 


Lindstrom* Jodie 


Secretary (Typing) 


330 


5 



Pegs 1 











REPORT JATE* 


03/10/46 


STEP 


?Dt 


3ZLLET9 


EXPIRE 


TORE OHIT 


1: 

rOSZ DIRECT 


1 


A06S6 


9l3g 


36-09-30 


Tunc.Skill 


Sticbt 1 


9 


A0S05 


304g * 


36-09-23 




San Miguel 


• r 


AO 140 


827g 


36-06-31 




Dickey 


.. i 


A10 63 


954g 


36-09-30 




Suske 


10 


A04r7 


13 3g * 


- - 0 




i 

Dickey 


r* 


• A0 836 


877 g • 


16-10-01 




Thomas 


i 


A0171 


Silg . 


36-03-14 




Greer 


• • i 


A1033 


913g 


36-10-10 


Pune. Skill 


Armijo 


I- • 


A1037 


843g ’ 


87-01-11 




Dickey 


4 ; 


A1078 


267g 


- - 0 




Dickey 


3 


A0 4 66 


13 4g 


- - 0 




Dickey 


• 1 


A0938 


896g 


86-06-02 




ncmMM j 


' 1 


*1144 


262g 


•“ - - 0 




dickey 


.7 


A0496 


913g 


86-03-26 




• 

Thomas 


1 


A0 671 


964g 


86-07-21 


MARC 


2 limes man I 


1 


A0497 


362g 


97-01-02 




1 

Sieooer-Turp 


1 


AO490 


939g 


86-07-01 




Eoyaag 


1 


A0379 


893g 


86-06-30 




Soyang 
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Quarterly Inventory 



DKPMCmEWT OF AOUruXSTaATIVS SCIEICZS 
2SFOXS* QOA STCRtT ISVESTOXT 



PA# 

?o# 



1111 



Vendor 

Coat S*c«iT«d luoi 



ran 

5 1000.00 U-U-U ADAM 



Description 

Location 



?D-J1 
. 1-270 



ABPOier OATSl 03/10/36 
3# rial# 

inn 



212 

2222 



30BETTILL 

$ 2000.00 



-22 axm 



COHP OT gA 

1-280 



22222 



333 

333 



7ZST 

9- 3333.00 33-33-33 CXRSOH 



TEST DESC 
I -0-1 . 



3333 
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Requisition Status 



OSSAJT.lZSt Of Aa-JiniSTRATIVS 3CI2MC2S 

aEPoarj rsquisitioh status 



8DO 

Dtscaipnoa 



- - 0 



□OC ) 



*SVISIOH OATSi 



COTTCOO* 



STOCZ » 



PO# 



aEaucsToi 



mn»a 



- - o 



- - 0 



- - 0 



- - 0 



- - o 



- - 0 



- - 0 

clipper for Lbe pc 
- - 0 



- - o 
Tope Dispenser# 3* 



- - 0 



5204-9140 



5213-9644 



»♦ one cooler 



central point software 



Iron 



a.. : 



CTC31 



a«port to Judy •teccco.a.;^ Sdoc.eion i Tr.J^” 



- - 0 

Pyxel Visual s 
- - 0 



5221-7506 



5235-7508 



3LPSE 



C " i * to eooaoct iaa-PC t? Ooi.ywtlt.r Prlnt.r 



RLPES 



7520-00-240-2417 Joelson 



83- #4-4828 



33-V-1587 



■ontrey bay coaputervorx* 

Rsady Supply 
Federal Express 
Pyxal Applicant one 
Coaputerland 



PASS 1 
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I. BACKGROUND 



The Administrative Sciences (AS) Data 3ase Reporting 
System (the AS System) is an interactive, menu driven data 
base management system. This system is used to input, edit 
and store the U.S. Naval Postgraduate School's Administra- 
tive Sciences Department's financial data (i.e., the AS 
Department's OPTAR, data relative to the AS Department's 
indirect cost and research accounts, and the Department's 
equipment inventory) and to create financial reports. This 
manual is not a tutorial of the AS System's application 
language . 



II. DATA 3ASE ADMINISTRATOR 

The AS Department's Management Assistant is the AS 
System's Administrator and Data Base Administrator (DBA). 
The duties of the DBA includes defining data tables and 
structures, data security, program and systems modifica- 
tions, system documentation and user training. All request 
or suggestions for changes and major problems must be refer- 
red to the System's Administrator. 
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III. SYSTEM DESIGN 



The AS System performs data manipulation and report 
generation, and has been designed along these two functional 
paths. Appendix F, the AS System's data flow diagram de- 
tails the two functional paths. Prototyping was used; first 
perform the data manipulation for one table and the report 
generation for one report, then use similar logic for the 
other tables and reports. 

A. PRIMARY DESIGN GOALS 

The following were the primary design goals for AS 
System: 

- error detection and correction 

- ease in modifying programs 

- data entry editing 

- ease in entering, storing and modifying data 

- ease in creating reports 

- ease in operating the system 

- ease of adding follow-on features (i.e., spreadsheets, 

graphics, etc.) 

In an attempt to accomplish the above goals, the majori- 
ty of this System's modules deal with the interface between 
the user and the data, instead of computations upon the 
data. Due to these design goals, the System's structure 
chart, Appendix G, displays a great deal of higher level 
fan-out and minimal lower level fan-in. 

B. PROCESSING LOGIC 

The following is the standard processing logic of the 
perform files (modules) : 

1. Change the necessary K-Man environment vari- 
ables . 

2. Receive passed data from a calling module. 
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3 . 



Determine if user wants to exit module. (Will be 
no on first entry into module.) If no - perform 
step 4. If yes - perform step 8. 

4. Display and accept input from a menu. 

5. Error check the menu input. 

5a. Display and accept input from an 

error form and repeat step 5 (If menu 
entry was an error.). 

6. Perform function of module or call a 
subordinate module. 

7. Repeat step 3. 

8. Ensure that the changed K-Man environmental 
variables are set to the default values. 

9. Change the necessary variable to ensure that a 
blank appears at the calling menu's prompt. 
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IV. APPLICATION LANGUAGE 



The application language used for the AS System is 
KnowledgeMan (K-Man) , version 1.07; which is developed by 
Micro Data Base Systems, Inc., Lafayette, Indiana. Know- 
ledgeMan is a database management system which is designed 
to operate on a microcomputer. The AS System uses the fol- 
lowing KnowledgeMan capabilities: 

- Data Management 

- Screen Input/Output Management 

- Printed Forms (Reports) Management 

- Procedures 

Future development of the AS System can accommodate the 
following: 

- Statistical Analysis 

- Spreadsheet Analysis 

- Calculations 

- Functions 

- Graphics 

- Integration with other financial packages; i.e. IFPS 

V. SCREEN INPUT/OUTPUT MANAGEMENT 

The AS System uses predefined forms for menus, data 
entry and data display. Menus and data entry/display forms 
prompt the user for entries. The AS System is designed for 
a novice user, therefore prompts and instructions are uti- 
lized instead of command entries. Each menu and data 
entry/display form also edits the user's input by using 
KnowledgeMan ' s "picture" capability. If a wrong entry is 
made, an error form is displayed that notifies the user of 
an error and prompts for a correct entry. Appendix B is 
a hierarchical chart of the AS System's menus and Appendix C 
contains each system menu. 
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XnowledgeMan ' s optional interactive forms painting 
component (K-Paint) was used to create the System's menus 
and entry/display forms. The X-Paint files are included 
with the AS System's K-Man files. 
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VI. FILES 



The following file name extensions are used by the AS 
System: 



- EXE 

- ICF 



- IGU 

- INC 

- IPF 



- OVL 

- TPL 



a K-Man execute file 

context file, which saves a former state of 
K-Man processing in an encrypted format so that 
it can be resumed later (menus and forms) 
user/password security file (a K-Man file) 
include file (a K-Man file) 

perform file, which holds a sequence of K-Man 
commands (except for forms and menus, the code 
for these files is contained in Appendix J) 
K-Man overlay files 

report templates (created with X-Report) 



A. PERFORM FILES 

The following are the AS 

brwtable 

crtrecrd 

dbmen 

deltrecl 

deltrec2 

expenmen 

incommen 

indirdlt 

indirmen 

indirupd 

invendlt 

invenmen 

invenrpt 

invenupd 



System's perform files: 
outstrpt 
persdmen 
pf unddlt 
pf undmen 
pf undrpt 
pf undupd 
phistdlt 
phistmen 
phistrpt 
phistupd 
prprtmen 
purchdlt 
purchmen 
purchupd 
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ma inmen 


purrtmen 


optardlt 


reprtmen 


optarmen 


requsrpt 


optarupd 


travlmen 


otherdl t 


tvlexdl t 


othermen 


tvlexupd 


otherupd 


updrecrd 



Naming convention: 

*.ipf — ( * = function performed) 

- *men.ipf — ( This file displays a menu and perform a 

selected option. * = function selected or 
table requested) 

- ( This file is required to delete a record 
from a table. * = table's name) 

- ( This file creates a report. * = report's 
name) 

: upd.ipf — ( This file is required to update a record 
in a table. * = table's name) 

The above files were created with a text editor. Listings 
of the perform files are contained in Appendix I. 



- *dlt.ipf 

- *rpt.ipf 

- *1 



B. ERROR AND MESSAGE FORMS 



The following 
forms : 

- delerf rm ( . icf 

- erlindir ( . icf 

- er2indir ( . icf 

- eroinven ( . icf 

- erooptar ( . icf 

- eropf und ( . icf 

- erophist ( . icf 

- erotvlex ( . icf 

- errorf rm ( . icf 



are the AS System's 

& .ipf) 

& .ipf) 

& .ipf) 

& .ipf) 

& .ipf) 

& .ipf) 

& .ipf) 

& .ipf) 

& .ipf) 



error and message 
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Naming convention: 

- ero*.(.icf or .ipf) — ( * = table's name) 

The above files were created, and may be viewed, oy using K 
Paint. 



C. FORMS 

The following are the AS System's forms: 
deletfrm tabldfrm 

delqsfrm trpldfrm 



indelf rra 
indircrt 
indirdel 
indirect 
inupdf rm 

invencrt 
invendel 
inventor 
ivdelf rm 
ivupdf rm 

opdelf rm 
optar 
optarcrt 
optardel 
opupdf rm 

otdelf rm 
other 
othercrt 
otherdel 
otupdf rm 



pfdelf rm 
pf undcrt 
pf unddel 
pf unding 
pf updf rm 

phdelf rm 
phistcrt 
phistdel 
pnistory 
phupdf rm 

pudelf rm 
purchase 
purchcrt 
purchdel 
puupdf rm 

tvdelf rm 
tvlexcrt 
tvlexdel 
tvlexp 
tvupdf rm 
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Naming convention: 

All of the above files have an .icf or . ipf extension. The 
".icf" files are saved for K-Paint usage. The ".ipf" files 
are performed by an AS System module (file) . 



*crt. 


— (A form on which a user enters 
data to create a record — an 


- *delfrm. 


entry form. * = table's name) 

— (A form on which a user enters a 
field's value that is used to 
select which record may be dele- 
ted. * = table's name) 


*del. 


— (A form that display's a record 
that may be deleted — a deletion 
form. * = table's name) 


*. (icf 


& ipf) — (A form that displays a record 
when a user elects to browse a 
table or update a record — an 
entry form. * = table's name) 


- *updfrm. 


— (A form on which a user enters a 
field's value that is used to 
select which records may be updat 
ed. * = table's name) 



The above files were created by using K-Paint. 
D. REPORTS 

The following are the AS System's reports: 



- invenrpt.tpl 


— Quarterly Inventory 


- outstrpt.tpl 


— Outstanding TO(s) 


- pfundrpt.tpl 


— Personnel Funding 


- phistrpt.tpl 


— Personnel History 


- requsrpt.tpl 


— Requisition Status 



The above files were created, and the structure may be 
viewed, by using K-Report. 
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E. MENUS 

The following are the AS Systems menus: 



expenf rm 


pf undf rm 


incomf rm 


phistfrm 


indirf rm 


prprtf rm 


invenf rm 


purchf rm 


mainf rm 


purrtf rm 


optarf rm 


reprtf rm 


otherf rm 


travf rm 


persdf rm 




Naming convention: 





- *frm. (icf & ipf) — ( * = the subject table or purpose 

of menu; i.e. phistfrm is the menu 
for the phistory table) 

The above files were created by using X-Paint. 



F. TABLES 



The following are 

- indirect. itb 

- inventor. itb 

- ootar.itb 

- other. itb 

- pfunding.itb 

- phistory. itb 

- purchase. itb 

- tvlexp.itb 

The above tables we re 
language. 



the tables for the AS System: 
Indirect Income 
Inventory Property 
OPTAR Income 
Other Income 

Personnel Funding Expenses 
Personnel History Expenses 
Purchase Expenses 
Travel Expenses 

created by using X-Man's command 
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VII. DATA MANAGEMENT 



The AS System's data is organized into taoles. Each 
field within each table has a specific size and type (nume- 
ric, string or logical). Each file has a "picture", which 
KnowledgeMan uses to edit a field's value. The formats of 
the AS System's tables are contained in Appendix J and the 
field definitions are contained in Appendix H. Because the 
AS System's users had previously used KnowledgeMan in an ad 
hoc query mode, and to decrease processing time, this is not 
a relational data base; there is a duplication of data 
between some tables. 

User access may be limited to tables and fields within 
tables. The use of this data security capability is the 
responsibility of the DBA. 
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VII. AS SYSTEM REQUIREMENTS 



A. REFERENCES 

The following references are necessary for successfully 
programming the AS System: 

- KnowledgeMan Reference Manual 

- Interactive Forms Painting (K-Paint); Supplement #1 to 
the KnowledgeMan Reference Manual 

Full-Screen Text Processor (K-Text); Supplement #2 to 
the KnowledgeMan Reference Manual or another text editor 

- Custom Report Generation (K-Report)? Supplement #5 to 
the KnowledgeMan Reference Manual 

The following references are helpful for successfully 
programming the AS System: 

- Disk Operating System (version 2.1) by Microsoft Corp. 

- The Beginner's Guide to KnowledgeMan 

- Discovering KnowledgeMan; published by the Howard Sams 
Co., Indianapolis 

- The Book of KnowledgeMan; by Gilbert M. Roeder 

B. SOFTWARE 

The following software is required for operating the AS 
System: 

- DOS, version 2.1 — The CONFIG.SYS file must have 

buffers set to at least 10. The 
AS System has buffers=ll. Each 
additional buffer cost an addi- 
tional 528 bytes of memory, but 
may result in faster processing. 
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Note — A diskette has been provided to the DBA which 
contains DOS version 2.1 and the following commands in 
AUTOEXEC.BAT: 

C: 

SETCLOCX 

PATH C:\AS\KMAN 

CD C:\AS\SYSTEM 

(With the current equipment, the AS System's files are 
stored in drive "C", sub-directory \AS\SYSTEM. Know- 
ledgeMan, K-Paint, K-Report and K-Text are stored in "C" 
drive, sub-directory \AS\KMAN.) 

- K-Man, version 1.07 (PCDOS, IBM PC) 

- K-Paint, version 1.07 (PCDOS, I3M PC) 

- K-Report, version 1.07 (PCDOS, IBM PC) 

- K-Text, version 1.07 (PCDOS, IBM PC) or another text 
editor (Kedit was used to create this system's perform files 

C. HARDWARE 

- Minimum RAM of 192K 

- Minimum mass disk storage of 500K 
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APPENDIX F 
DATA FLOW DIAGRAM 
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Tables 



Manipulate 
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Reports 



APPENDIX G 
STRUCTURE CHART 



This appendix contains the structure chart of the AS 
System's perform files (.IPF). All modules are numbered, 
except the menus and forms. The modules that are called by 
several other modules are connected via a small box which 
contains a roman numeral. All modules are called condition ~ 
ally . 




DATA: a. FORMANS 
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DATA: 



a 



FORMANS 




DATA: a. FORMANS 



95 




DATA: a. 

d. 



FORMANS; b. TABLE; c. TABLE, UPDATVAR, COND; 
TABLE, PASSVAR, PASSCOND; e. ENTRYONE, ENTRYTWO 
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PHISTMEN 



1 . 1 . 1. 2 




DATA: a. 

d. 



FORMANS; b. TABLE; c. TABLE, UPDATVAR, COND; 
TABLE, PASSVAR, PASSCOND; e. ENTRYQNE 
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1 

a. j 

V 


A 

a. 


TRAVFRM 

i 

i 






i 

i 

e * i 

V 

j 

j 


A 

i 

l e * 

i 

i 


TVUPDFRM 

i i 



TRAVLMEN 



1 . 1.2 



a. 



b. 



I. 



II. 



b. 



a. 



III. 



a. 



! a. 

i i 




TVLEXDLT 



1 . 1 . 2 . 21 



e. 



c. 




a. 



IV. 



e. 



J l 



d. ! | j a. 



i e. 



e. 



TVDELFRM 



EROTVLEX 



i i 



V. 



DATA: a. 

d. 



FORMANS; b. TABLE; c. TABLE, UPDATVAR, COND; 
TABLE, PASSVAR, PASSCOND; e. ENTRYONE 
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1 

a. | 

V 


A 

a* 

i 


PURCHFRM 






1 

e * 1 
V 


A 

1 

!*• 


PUUPDFRM 

i 






A 

1 

1 






1 

c ‘ 1 
V 

1 


A 

| 

1 a * 

l 


ERQTVLEX 


1 1 

1 IV - ! 

i i 






< 







V. 



DATA: a. 

d. 



FORMANS; b. TABLE; c. TABLE, UPDATVAR, COND ; 
TABLE, PASSVAR, PASSCOND; e. ENTRYONE 
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DATA 



a 



FORMANS 




DATA: a. 

d. 



FORMANS; b. TABLE; c. TABLE, UPDATVAR, COND ; 
TABLE, PASSVAR, PASSCOND; e. ENTRYONE, ENTRYTWO 
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INDIRMEN 



1 . 2 . 2 



a. 



a. 



a. 




I. 




e. 



b. 



a. 



II. 



b. 



a. 



i III. 



a. 



INDIRUPD 



1 . 2 . 2 . 1 



c. 



a. 




IV. 



f . 



f . 



i a. 



INDIRDLT 



ER1INDIR 



1 . 2 . 2 . 2 : 



d. 



i i ! 



a. 



V ! 



i r 



v * ! 
i 



DATA: a. FORMANS; b. TABLE; c. TABLE, UPDATVAR, COND; d. TABLE, 
PASSVAR, PASSCOND; e. ENTRYONE, ENTRYTWO ; f. ENTRYONE 
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DATA: a. FORMANS; b. TABLE; c. TABLE, UPDATVAR, COND; d. TABLE, 
PASSVAR, PASSCOND; e. ENTRYONE, ENTRYTWO ; f. ENTRYONE 
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a. 



INVEI 

i 

i 

! 

1 

! 


IFRM 






1 

e - s 

V 


A 

1 

l e ‘ 

1 


I VUPDFRM 

i 

i 

i i 




DATA : a. 

d. 



FORMANS ; b. TABLE; c. TABLE, UPDATVAR, COND; 
TABLE, PASSVAR, PASSCOND; e. ENTRYONE, ENTRYTWO 
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a. 



REPRTFRM 




a. 





A 

1 

l a * 






A 

! a * 


1 

1 I# 


A 


1 

PURRTMEN 

! 

2.2| 

1 1 






a 

i 



! i 



! a. 



QUTSTRPT 



2 . 3 ! 



VII. 



DATA: a. FORMANS 
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I 



DATA: a. FORMANS 



106 



I 




DATA : a 



FORMANS 



VI. j I VII. J 



I FORMANS 



ERRORFRM 




TABLDFRM 




' 1 

TRFLDFRM 

i 

f 

1 
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109 
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DELERFRM 



I l 
I ! 



c. 



DELTREC2 



DATA: a. 

c. 



TABLE, PASSVAR, PASSCOND; b. 
PASTABLE, DELTVAR, CQND ; d. 



DELTANS; 

FORMANS 
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112 




TABLE, UPDATVAR, CQND 



FORMANS 




113 




APPENDIX H 
DATA DICTIONARY 



DATA DICTIONARY 

Format of elements: Name, allowable values, format description, 
files inwhich the element is used ( . IPF files unless noted), 
and read and write access (DBA has table matching access codes 
to individuals) . 

Allowable values; num = numeric, str = string, logic = logical. 

Format; d = place holder for a digit or a sign. 

r = placeholder for any ASCII character. 

%5r = rrrrr; repeat the code the number of times as 
the number 
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COND 



NUM 0, 1 or 2 A variable used to determine 

which condition has been selected by a user for either up- 
dating or deleting a record from a table. (0 = only 1 con- 
dition displayed by updating or deletion form, 1 = 1st 
condition was selected and 2 - 2nd condition was selected) 
DELTREC1 , DELTREC2, INDIRUPD, INVENUPD, OPTARUPD, OTHERUPD, 
PFUNDUPD, PHISTUPD, PURCHUPD, TVLEXUPD, UPDRECRD 

DELTANS STR (Y,N,y,n) A variable which determines 

if a user is sure that a record is required to be deleted. 
DELERFRM, DELERFRM. ICF, DELQSFRM, DELQSFRM. ICF , DELTREC1 

DELTVAR STR or NUM A variable which is used to 

determine which selection criterion is used to delete a 
record. (DELTVAR equals a specific field's value.) 

DELTREC2 

ENTRYONE STR or NUM A variable which is updated 

by entering data onto to a update or deletion selection 

form or an error form. The only records that will be dis- 
played contains a field's value that matches ENTRYONE. 

(i.e. ENTRYONE = "Smith" will only display records that 
contains LNAME = "Smith") 

ER1INDIR ( . IPF k .ICF), ER2INDIR ( . IPF k .ICF), 

EROINVEN ( . IPF & .ICF), EROPFUND ( . IPF k .ICF), 

EROOPTAR ( . IPF & .ICF), EROPHIST ( . IPF & .ICF), 

EROTVLEX ( . IPF & .ICF), 



INDELFRM ( . IPF 
INUPDFRM ( . IPF 


& .ICF), 
& .ICF), 


INDIRDLT, 


INDIRUPD 


INVENDLT, INVENUPD, IVDELFRM ( . IPF k .ICF) 
IVUPDFRM ( . IPF & . ICF ) , 


OPDELFRM ( . IPF 
OPUPDFRM ( . IPF 


& .ICF), 
k .ICF), 


OPTARDLT, 


OPTARUPD 


OTDELFRM ( . IPF 
OTUPDFRM ( . IPF 


& .ICF), 
k .ICF), 


OTHEHDLT, 


OTHERUPD 


PFDELFRM ( . IPF 
PFUPDFRM ( . IPF 


k .ICF), 
k .ICF), 


PFUNDDLT, 


PFUNDUPD 


PHDELFRM ( . IPF 
PHUPDFRM ( . IPF 


k .ICF), 
k .ICF), 


PHISTDLT, 


PHISTUPD 


PUDELFRM ( . IPF 
PUUPDFRM ( . IPF 


k .ICF), 
k .ICF), 


PURCHDLT, 


PURCHUPD 


TVDELFRM ( . IPF 
TVUPDFRM ( . IPF 


k .ICF), 
k .ICF) 


TVLEXDLT, 


TVLEXUPD 
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ENTRYTWO STR or NUM A variable which is updated 

by entering data onto to a update or deletion selection 
form or an error form. The only records that will be dis- 
played contains a field's value that matches ENTRYONE 
(i.e. ENTRYONE = "Smith" will only display records that 
contains LNAME = "Smith") . Used if there are two fields 
which may be used for updates or deletions.) 

ER2INDIR ( . IPF & . ICF) , EROINVEN ( . IPF & .ICF), 

EROPFUND ( . IPF & .ICF), EROOPTAR ( . IPF & .ICF), 

INDIRUPD, INUPDFRM ( . IPF & .ICF), 

INVENDLT, INVENUPD, IVDELFRM ( . IPF & .ICF), 

IVUPDFRM ( . IPF & . ICF ) , 

OPDELFRM ( . IPF & .ICF), OPTARDLT, OPTARUPD, 

OPUPDFRM ( . IPF & . ICF ) , 

OTHERUPD, OTUPDFRM ( . IPF & .ICF), 

PFDELFRM ( . IPF & .ICF), PFUNDDLT, PFUNDUPD, 

PFUPDFRM ( . IPF S. .ICF) 

FORMANS STR (1, 2, 3, 4 or 5) The displayed menu's 

option that is selected by the user. 

BRWTABLE, CRTRECRD, DBFORM ( . IPF & .ICF), DBMEN, D2LTR2C1, 
ERRORFRM ( . IPF & . ICF ) , 

EXPENFRM ( . IPF & . ICF) , EXPENMEN, 



INCOMFRM ( 


.IPF & .ICF) , 


INCOMMEN, 






INDIRDLT, 


INDIRFRM ( . IPF 


St 


.ICF) , 


INDIRMEN, 


INDIRUPD, 


INVENDLT, 


INVENFRM ( . IPF 


St 


.ICF) , 


INVENMEN, 


INVENRPT, 


INVENUPD, 


MAINFRM ( . IPF 


St . 


ICF) , 


MAINMEN, 




OPTARDLT, 


OPTARFRM ( . IPF 


St 


.ICF) , 


OPTARMEN, 


OPTARUPD, 


OTHERDLT, 

OUTSTRPT, 


OTHERFRM ( . IPF 
PERSDMEN, 


St 


.ICF) , 


OTHERMEN, 


OTHERUPD, 


PFUNDDLT, 

PFUNDUPD, 


PFUNDFRM ( . IPF 


St 


.ICF) , 


PFUNDMEN, 


PFUNDRPT, 


PHISTDLT, 
PHISTUPD , 


PHISTFRM ( . IPF 
PRPRTMEN, 


& 


.ICF) , 


PHISTMEN, 


PHISTRPT, 


PURCHDLT, 


PURCHFRM ( . IPF 


St 


.ICF) , 


PURCHMEN, 


PURCHUPD, 


PURRTFRM ( 


.IPF & .ICF) , 


PURRTMEN, 


REPRTFRM ( 


.IPF St .ICF) 



REPRTMEN, REQUSRPT, 

TRAVFRM ( . IPF & .ICF), TRAVLMEN, TVLEXDLT, TVLEXUPD, 
UPRECRD 
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INDIRECT. ASAPPRO NUM Sddddd.dd 

INDIRECT. ITB, INDIRECT, INDIRECT . ICF , INDIRCRT, 
INDIRCRT. ICF, INDIRDEL , INDIRDEL . ICF 

Read Access : A 

Write Access : A 



INDIRECT. AUTH NUM $ddddddd.dd Total amount authorized 

for research project. 

INDIRECT. ITB , INDIRECT, INDIRECT. ICF , INDIRCRT, 
INDIRCRT. ICF, INDIRDEL, INDIRDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



INDIRECT. COSTCODE STR %5r Costcode or Job Order #. 

INDIRECT. ITB, INDIRECT, INDIRECT. ICF , INDIRCRT, 
INDIRCRT. ICF, INDIRDEL, INDIRDEL . ICF , UPDRECRD 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



INDIRECT. DEPTIC NUM $ddddd.dd Amount anticipated for 
indirect costs. 

INDIRECT. ITB, INDIRECT, INDIRECT. ICF , INDIRCRT, 
INDIRCRT. ICF, INDIRDEL, INDIRDEL. ICF 
Read Access : A3CDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



INDIRECT. DOC# STR %15r Document #. 

INDIRECT. ITB, INDIRECT, INDIRECT . ICF , INDIRCRT, 
INDIRCRT. ICF, INDIRDEL, INDIRDEL. ICF 

Read Access : A 

Write Access : A 



INDIRECT. ENTRY NUM dd-dd-dd Date the entry is made. 

INDIRECT. ITB, INDIRECT, INDIRECT. ICF , INDIRCRT, 
INDIRCRT. ICF, INDIRDEL, INDIRDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



INDIRECT. ESTIMATE NUM $ddddddd.dd Estimated cost of research. 
INDIRECT. ITB, INDIRECT, INDIRECT. ICF , INDIRCRT, 

INDIRCRT. ICF, INDIRDEL, INDIRDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
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INDIRECT. EXPIRE NUM dd-dd-dd Date of expipation of funds. 
DELTREC2, INDIRECT . ITS , INDIRECT r INDIRECT. ICF, INDIRCRT, 
INDIRCRT. ICF, INDIRDEL , INDIRDEL . ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



INDIRECT. ICRECD NUM $ddddd.dd Actual indirect costs re- 
ceived from project. 

INDIRECT. ITB, INDIRECT, INDIRECT . ICF , INDIRCRT, 
INDIRCRT. ICF, INDIRDEL, INDIRDEL. ICF 
Read Access : A3CDEFGHIJKLMN0P 
Write Access : ABCDEFGHIJKLMNOP 



INDIRECT. MIPR# STR %15r MIPR# from acceptance docu 

ment . 

INDIRECT. ITB, INDIRECT, INDIRECT. ICF , INDIRCRT, 

INDIRCRT. ICF, INDIRDEL, INDIRDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



INDIRECT. PERIOD STR %20r Dates specified on proposal 

for performance of research. 

INDIRECT. ITB, INDIRECT, INDIRECT . ICF , INDIRCRT, 

INDIRCRT. ICF, INDIRDEL, INDIRDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



INDIRECT. PRINCIPL STR %20r Last name of principal inves- 

tigator . 

BRWTA3LE, INDIRECT. ITB , INDIRECT, INDIRECT . ICF , INDIRCRT, 
INDIRCRT. ICF, INDIRDEL, INDIRDEL . ICF , UPDRECRD 
Read Access : A3CDEFGH I JKLMNOP 
Write Access : A3CDEFGH I JKLMNOP 



INDIRECT. PROPOSAL STR %130r Title of proposal. 

INDIRECT. ITB, INDIRECT, INDIRECT . ICF , INDIRCRT, 
INDIRCRT. ICF, INDIRDEL, INDIRDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
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INDIRECT. REF# STR %25r Reference # from acceptance 

document . 

INDIRECT. ITS, INDIRECT, INDIRECT. ICF , INDIRCRT, 

INDIRCRT . ICF , INDIRDEL, INDIRDEL .ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



INDIRECT. REMARKS STR %50r Remarks. 

INDIRECT. ITB, INDIRECT, INDIRECT. ICF, INDIRCRT, 
INDIRCRT. ICF, INDIRDEL, INDIRDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



INDIRECT. SEGMENT STR %6r Segment # 

INDIRECT. ITB, INDIRECT, INDIRECT. ICF , INDIRCRT, 
INDIRCRT. ICF, INDIRDEL, INDIRDEL. ICF 

Read Access : A 

Write Access : A 



INDIRECT. SERIALS NUM dddd-dddd Serial # 

INDIRECT. ITB, INDIRECT, INDIRECT. ICF , INDIRCRT, 
INDIRCRT. ICF, INDIRDEL, INDIRDEL. ICF 

Read Access : A 

Write Access : A 



INDIRECT. SPONSOR STR %40r Name of project sponsor. 

INDIRECT. IT3, INDIRECT, INDIRECT . ICF , INDIRCRT, 
INDIRCRT. ICF, INDIRDEL, INDIRDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



INDIRECT. STAFFL3R NUM $ddddd.dd Total of support laoor. 
INDIRECT. ITB, INDIRECT, INDIRECT . ICF , INDIRCRT, 
INDIRCRT. ICF, INDIRDEL, INDIRDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



INDIRECT. STATUS STR %25r Status of proposal. 

INDIRECT. ITB, INDIRECT, INDIRECT. ICF , INDIRCRT, 
INDIRCRT. ICF, INDIRDEL, INDIRDEL. ICF 
Read Access : A3CDEFGHIJKLMNOP 
Write Access : A3CDEFGHIJKLMN0P 
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INVENTOR. COST NUM $dddddd.dd 

INVENTOR. ITB, INVENTOR, INVENTOR. ICF , INVENCRT, 
INVENCRT . ICF , INVENDEL, INVENDEL . ICF , INVENRPT . TPL 

Read Access : A 

Write Access : A 



INVENTOR. DESCRIPT STR %50r 

INVENTOR. ITS, INVENTOR, INVENTOR. ICF , INVENCRT, 
INVENCRT. ICF, INVENDEL, INVENDEL . ICF , INVENRPT. TPL 

Read Access : A 

Write Access : A 



INVENTOR. ISSUE STR %25r 

INVENTOR. ITB, INVENTOR, INVENTOR. ICF , INVENCRT, 
INVENCRT. ICF, INVENDEL, INVENDEL . ICF , INVENRPT. TPL 

Read Access : A 

Write Access : A 



INVENTOR. LOCATION STR %7r 

INVENTOR. ITB, INVENTOR, INVENTOR. ICF, INVENCRT, 
INVENCRT. ICF, INVENDEL, INVENDEL. ICF, INVENRPT. TPL 

Read Access : A 

Write Access : A 



INVENTOR. PA# ' STR %6r 

3RWTABLE, DELTREC2 , INVENTOR. ITB , INVENTOR, INVENTOR. ICF, 
INVENCRT, INVENCRT. ICF, INVENDEL, INVENDEL . ICF , 

INVENRPT. TPL, UPDRECRD 

Read Access : A 

Write Access : A 



INVENTOR. PO# STR %9r 

INVENTOR. ITB, INVENTOR, INVENTOR. ICF, INVENCRT, 
INVENCRT. ICF, INVENDEL, INVENDEL . ICF , INVENRPT. TPL 

Read Access : A 

Write Access : A 



INVENTOR. RECEIVED NUM dd-dd-dd 

INVENTOR. ITB, INVENTOR, INVENTOR. ICF, INVENCRT, 
INVENCRT. ICF, INVENDEL, INVENDEL. ICF, INVENRPT. TPL 

Read Access : A 

Write Access : A 
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INVENTOR. SERIAL# STR %12r 

DELTREC2, INVENTOR. ITB , INVENTOR, INVENTOR. ICF , INVENCRT, 
INVENCRT. ICF, INVENDEL, INVENDEL . ICF , INVENRPT . TPL , 
UPDRECRD 

Read Access : A 

Write Access : A 



INVENTOR. VENDOR STR %40r 

INVENTOR. ITB, INVENTOR, INVENTOR. ICF, INVENCRT, 
INVENCRT. ICF, INVENDEL, INVENDEL. ICF, INVENRPT. TPL 

Read Access : A 

Write Access : A 



OPTAR. ACTUAL NUM $dddddd.dd Changes in authorized. 

0PTAR.IT3, OPTAR, OPTAR. ICF, OPTARCRT, OPTARCRT. ICF, 
OPTARDEL , OPTARDEL . I CF 

Read Access : A 

Write Access : A 



OPTAR. AUTH NUM $dddddd.dd Total amount authorized. 

OPTAR. ITB, OPTAR, OPTAR. ICF, OPTARCRT, OPTARCRT . ICF , 
OPTARDEL, OPTARDEL. ICF 
Read Access : A3CDEFGHIJKLMN0P 
Write Access : ABCDEFGHIJKLMNOP 



OPTAR. DIFFER Virtual field : ((ACTUAL - AUTH)) 

OPTAR. ITB, OPTAR, OPTAR. ICF, OPTARCRT, OPTARCRT. ICF , 
OPTARDEL, OPTARDEL. ICF 
Read Access : A 



OPTAR. ENTRY NUM dd-dd-dd Date that record is entered. 

DELTREC2 , OPTAR. IT3, OPTAR, OPTAR. ICF, OPTARCRT, 

OPTARCRT. ICF, OPTARDEL, OPTARDEL . ICF , UPDRECRD 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



OPTAR. RECEIVED NUM dd-dd-dd Date of latest authorization 
memo . 

3RWTA3LE, DELTREC2 , OPTAR. ITB, OPTAR, OPTAR. ICF, OPTARCRT, 
OPTARCRT. ICF, OPTARDEL, OPTARDEL . ICF , UPDRECRD 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
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OPTAR. TACTUAL NUM Sdddddd.dd Changes in travel authorized. 

OPTAR.ITB, OPTAR, OPTAR. ICF, OPTARCRT , OPTARCRT. ICF, 
OPTARDEL, OPTARDEL . ICF 

Read Access : A 

Write Access : A 



OPTAR. TAUTH NUM $dddddd.dd Amount designated for travel. 

OPTAR.ITB, OPTAR, OPTAR. ICF, OPTARCRT, OPTARCRT . ICF , 
OPTARDEL, OPTARDEL. ICF 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 



OPTAR. TDIFFER Virtual field : ((TACTUAL - TAUTH)) 

OPTAR.ITB, OPTAR, OPTAR. ICF, OPTARCRT, OPTARCRT. ICF , 
OPTARDEL, OPTARDEL. ICF 
Read Access : A 



OTHER. AUTH NUM $dddddd.dd Amount authorized for 

Department Expenditure. 

OTHER. IT3, OTHER, OTHER. ICF, OTHERCRT, 

OTHERCRT .ICF, OTHERDEL, OTHERDEL.ICF 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 



OTHER. COSTCODE STR %5r Costcode or Job Order #. 

OTHER. ITB, OTHER, OTHER. ICF, OTHERCRT, 

OTHERCRT. ICF, OTHERDEL, OTHERDEL.ICF, UPDRECRD 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 



OTHER. ENTRY NUM dd-dd-dd Date the entry is made. 

OTHER. ITB, OTHER, OTHER. ICF, OTHERCRT, 

OTHERCRT. ICF, OTHERDEL, OTHERDEL.ICF 
Read Access : A3CDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 



OTHER. EXPIRE NUM dd-dd-dd Date of expiration of funds. 

DELTREC2 , OTHER. IT3, OTHER, OTHER. ICF, OTHERCRT, 

OTHERCRT. ICF, OTHERDEL, OTHERDEL.ICF 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 
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STR %20r 



Last name of principal 



OTHER. PRINCIPL 

invesigator . 

BRWTABLE, OTHER. ITB, OTHER, OTHER. ICF, OTHERCRT, 
OTHERCRT. ICF, OTHERDEL, OTHERDEL . ICF , UPDRECRD 
Read Access : A3 CDEFG H I J KLMNOP 
Write Access : ABCDEFGH I J KLMNOP 



OTHER. PROPOSAL STR %130r Title of proposal. 

OTHER. IT3, OTHER, OTHER. ICF, OTHERCRT, 

OTHERCRT. ICF, OTHERDEL, OTHERDEL. ICF 
Read Access : ABCDEFGHIJ KLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



OTHER. REMARKS STR %50r REMARKS 

OTHER. ITB, OTHER, OTHER. ICF, OTHERCRT, 
OTHERCRT. ICF, OTHERDEL, OTHERDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



OTHER. SPONSOR STR %35r Name of project sponsor. 

OTHER. ITB, OTHER, OTHER. ICF, OTHERCRT, 

OTHERCRT. ICF, OTHERDEL, OTHERDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



OTHER. STATUS STR %25r Status of funds. 

OTHER. ITB, OTHER, OTHER. ICF, OTHERCRT, 
OTHERCRT. ICF, OTHERDEL, OTHERDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



PASSCOND NUM 0, 1 or 2 A variable used to determine 

which condition has been selected by a user for deleting a 
record from a table. (0 = only 1 condition displayed by 
deletion form, 1 = 1st condition was selected and 2 = 2nd 
condition was selected) 

DELTREC1 , INDIRDLT, INVENDLT, OPTARDLT, OTHERDLT, 

PFUNDDLT, PHISTDLT, PURCHDLT, TVL2XDLT 



PASSVAR STR or NUM A variable which is used to 

determine which selection criterion is used to delete a 
record. (DELTVAR equals a specific field's value.) 
DELTREC1 , INDIRDLT, INVENDLT, OPTARDLT, OTHERDLT, 
PFUNDDLT, PHISTDLT, PURCHDLT, TVLEXDLT 
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The name of a taole that 



PASTABLE STR 

have a record deleted from it. 
DELTREC1 , DELTREC2 



PFUNDING. AMOUNT MUM $ddddd.dd $Amount charged to costcode. 
PFUNDING . ITB , PFUNDING, PFUNDING. ICF, PFUNDCRT, 

PFUNDCRT . ICF , PFUNDDEL , PFUNDDEL . ICF , PFUNDRPT . TPL 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



PFUNDING. CODE STR %3r 

PFUNDING. ITS, PFUNDING, 
PFUNDCRT. ICF, PFUNDDEL, 

Read Access : A 

Write Access : A 



Department Code 
PFUNDING. ICF, PFUNDCRT, 
PFUNDDEL. ICF 



PFUNDING. COSTCODE STR %5r Costcode or Job Order# 

PFUNDING. IT3, PFUNDING, PFUNDING . ICF , PFUNDCRT, 
PFUNDCRT. ICF, PFUNDDEL, PFUNDDEL . ICF, PFUNDRPT. TPL 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



PFUNDING. DAYS STR %5r # of days. 

PFUNDING. ITB, PFUNDING, PFUNDING . ICF , PFUNDCRT, 
PFUNDCRT. ICF, PFUNDDEL, PFUNDDEL . ICF , PFUNDRPT. TPL 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



PFUNDING. ENTRY NUM dd-dd-dd Date of item entry. 

PFUNDING. ITB, PFUNDING, PFUNDING . ICF , PFUNDCRT, 
PFUNDCRT. ICF, PFUNDDEL, PFUNDDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



PFUNDING. FNAME STR %15r Full first name. 

PFUNDING. ITB, PFUNDING, PFUNDING . ICF , PFUNDCRT, 
PFUNDCRT. ICF, PFUNDDEL, PFUNDDEL . ICF , PFUNDRPT. TPL 
Read Access : ABCDEFGHIJKLMNOP 
Write Access ; A3CDEFGHIJKLMN0P 
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PFUNDING. FUNDFROM NUM dd-dd-dd Date funding began. 
PFUNDING. ITB, PFUNDING, PFUNDING . ICF , PFUNDCRT, 
PFUNDCRT . ICF , PFUNDDEL , PFUNDDEL . ICF , PFUNDRPT . TPL 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



PFUNDING. FUNDTO NUM dd-dd-dd Date funding ends. 
PFUNDING. ITB, PFUNDING, PFUNDING. ICF, PFUNDCRT, 
PFUNDCRT. ICF, PFUNDDEL, PFUNDDEL. ICF, PFUNDRPT. TPL 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



PFUNDING. HOURS NUM d 

PFUNDING. ITB, PFUNDING, PFUNDING. ICF, PFUNDCRT, 
PFUNDCRT. ICF, PFUNDDEL, PFUNDDEL . ICF , PFUNDRPT. TPL 

Read Access : A 

Write Access : A 



PFUNDING. HRSWK NUM dd Hours per week. 

PFUNDING. ITB, PFUNDING, PFUNDING. ICF, PFUNDCRT, 
PFUNDCRT. ICF, PFUNDDEL, PFUNDDEL . ICF , PFUNDRPT. TPL 

Read Access : A 

Write Access : A 



PFUNDING. LABOR# NUM dd-dd-dd Date of funding memo. 

DELTREC2 , PFUNDING . ITB , PFUNDING, PFUNDING. ICF, PFUNDCRT, 
PFUNDCRT. ICF, PFUNDDEL, PFUNDDEL . ICF , UPDRECRD 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



PFUNDING. LNAME STR %25r Full last name. 

BRWTABLE, DELTREC2 , PFUNDING . ITB , PFUNDING, PFUNDING . ICF , 
PFUNDCRT, PFUNDCRT. ICF, PFUNDDEL, PFUNDDEL . ICF , 

PFUNDRPT. TPL, UPDRECRD 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



PFUNDING. RATE NUM $ddd.dd Pay rate. 

PFUNDING. IT3, PFUNDING, PFUNDING . ICF , PFUNDCRT, 
PFUNDCRT. ICF, PFUNDDEL, PFUNDDEL . ICF, PFUNDRPT. TPL 

Read Access : A 

Write Access : A 
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PHISTORY. BILLET# STR %4r Billet# assigned by CPO. 

PH I STORY. ITB , PHISTORY , PHISTORY. ICF , PHISTCRT, 
PHISTCRT . ICF , PHISTDEL , PHISTDEL . ICF, PHISTRPT.TPL 
Read Access : A3CDEFGHIJXLMN0P 
Write Access : ABCDEFGHIJKLMNOP 



PHISTORY. DOB NUM dd-dd-dd Date of birth. 

PHISTORY. ITB , PHISTORY, PHISTORY. ICF, PHISTCRT, 
PHISTCRT. ICF, PHISTDEL, PHISTDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
write Access : ABCDEFGHIJKLMNOP 



PHISTORY. EFFECTIV NUM dd-dd-dd Effective date of personnel 
changes. 

PHISTORY. ITB, PHISTORY, PHISTORY. ICF, PHISTCRT, 

PHISTCRT. ICF, PHISTDEL, PHISTDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



PHISTORY. ENTRY NUM dd-dd-dd Date of entry. 

PHISTORY. ITB, PHISTORY, PHISTORY . ICF , PHISTCRT, 
PHISTCRT. ICF, PHISTDEL, PHISTDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



PHISTORY.ES NUM dd-dd-dd Date elements and standards 

set for performance review. 

PHISTORY. ITB, PHISTORY, PHISTORY . ICF , PHISTCRT, 

PHISTCRT. ICF, PHISTDEL, PHISTDEL. ICF 
Read Access : A3CDEFGH IJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



PHISTORY. EXPIRE NUM dd-dd-dd Date of expiration of tem- 
porary appointments. 

PHISTORY. ITB, PHISTORY, PHISTORY. ICF , PHISTCRT, 

PHISTCRT. ICF, PHISTDEL, PHISTDEL . ICF , PHISTRPT.TPL 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



PHI STORY • FNAME STR %15r Full first name. 

PHISTORY. ITB, PHISTORY, PHISTORY . ICF , PHISTCRT, 
PHISTCRT. ICF, PHISTDEL, PHISTDEL . ICF , PHISTRPT.TPL 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
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PHISTORY. GRADE NUM dd Grade level. 

PHI STORY • ITB , PHISTORY, PHISTORY . ICF , PHISTCRT, 
PHISTCRT.ICF, PHISTDEL, PHISTDEL • ICF , PHISTRPT.TPL 
Read Access : A3CDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 



PHISTORY. HRSWK NUM dd # of hours worked per week. 

PHISTORY. ITB , PHISTORY, PHISTORY. ICF, PHISTCRT, 
PHISTCRT.ICF, PHISTDEL, PHISTDEL. ICF 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 



PHISTORY. JOBTITLE STR %30r Title of position. 

PHISTORY. ITB, PHISTORY, PHISTORY. ICF, PHISTCRT, 
PHISTCRT.ICF, PHISTDEL, PHISTDEL. ICF, PHISTRPT.TPL 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 



PH I STORY. L NAME STR %25r Full last name. 

BRWTABLE, DETREC2 , PHISTORY . ITB , PHISTORY, PHISTORY . ICF , 
PHISTCRT, PHISTCRT.ICF, PHISTDEL, PHISTDEL . ICF , 
PHISTRPT.TPL, UPDRECRD 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 



PHISTORY. PD# STR %5r Position description # 

assigned by CPO. 

PHISTORY. ITB, PHISTORY, PHISTORY. ICF, PHISTCRT, 
PHISTCRT.ICF, PHISTDEL, PHISTDEL. ICF 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : A3CDEFGH IJKLMNOP 



PHISTORY. RATE $ddd.dd Hourly rate. 

Virtual field : (((SALARY / 2087) * 3) * 1.30000) 

PHISTORY. ITB, PHISTORY, PHISTORY . ICF , PHISTCRT, 
PHISTCRT.ICF, PHISTDEL, PHISTDEL. ICF 
Read Access : A3CDEFGH IJKLMNOP 



PH ISTORY. REMARKS STR %100r Remarks. 

PHISTORY. IT3, PHISTORY, PHISTORY. ICF, PHISTCRT, 
PHISTCRT.ICF, PHISTDEL, PHISTDEL. ICF 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 
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PH I STORY. SALARY NUM $ddddd.dd Annual salary. 

PHlSTORY . ITB , PH I STORY, PH I STORY. ICF, PHISTCRT, 
PHISTCRT. ICF, PHISTDEL , PHISTDEL.ICF 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 



PHlSTORY. SERIES NUM ddddd Series classification. 

PHlSTORY . ITB , PHlSTORY, PHlSTORY . ICF , PHISTCRT, 
PHISTCRT. ICF, PHISTDEL, PHISTDEL.ICF, PHISTRPT.TPL 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 



PHlSTORY. STATUS STR %6r Type of appointment. 

PHlSTORY. IT3, PHlSTORY, PHlSTORY . ICF , PHISTCRT, 
PHISTCRT. ICF, PHISTDEL, PHISTDEL.ICF 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : A3CDEFGHIJKLMN0P 



PHlSTORY. STEP NUM dd Step level. 

PHlSTORY. ITB, PHlSTORY, PHlSTORY . ICF , PHISTCRT, 
PHISTCRT. ICF, PHISTDEL, PHISTDEL.ICF, PHISTRPT.TOL 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 



PHlSTORY . SUPERVSR STR %25r Last name of workload super- 

visor . 

PHlSTORY. ITB, PHlSTORY, PHlSTORY. ICF, PHISTCRT, 

PHISTCRT. ICF, PHISTDEL, PHISTDEL.ICF, PHISTRPT.TPL 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : A3CDEFGH IJKLMNOP 



PH I STORY . W ORKUN IT STR %10r Workunit. 

PHlSTORY. ITB, PHlSTORY, PHlSTORY. ICF, PHISTCRT, 
PHISTCRT. ICF, PHISTDEL, PHISTDEL.ICF, PHISTRPT.TPL 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 



PURCHASE. CODE STR %3r Department code. (See data 

sources in User's Manual.) 

PURCHASE. ITB, PURCHASE, PURCHASE. ICF, PURCHCRT, 

PURCHCRT. ICF, PURCHDEL, PURCHDEL.ICF 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 
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PURCHASE. COSTCODE STR %5r Costcode or JON. 

PURCHASE . ITB , PURCHASE, PURCHASE . ICF , PURCHCRT, 
PURCHCRT . ICF , PURCHDEL, PURCHDEL . ICF , REQUSRPT.TPL 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : A3CDEFGHIJKLMN0P 

PURCHASE. DESCRIPT STR %50r Item description. 

PURCHASE. ITB, PURCHASE, PURCHASE. ICF , PURCHCRT, 
PURCHCRT. ICF, PURCHDEL, PURCHDEL. ICF, REQUSRPT.TPL 
Read Access : ABCDEFGH I JKLMNOP 
write Access : ABCDEFGH IJKLMNOP 



PURCHASE. DOC# STR %10r 

BRWTABLE, DELTREC2, PURCHASE . ITB , PURCHASE, PURCHASE . ICF, 
PURCHCRT, PURCHCRT. ICF, PURCHDEL, PURCHDEL. ICF, 
REQUSRPT.TPL, UPDRECRD 
Read Access : A3CDEFGH IJKLMNOP 
Write Access : A3CDEFGH IJKLMNOP 



PURCHASE. ENTRY NUM dd-dd-dd Date record is entered. 

PURCHASE. ITB, PURCHASE, PURCHASE. ICF, PURCHCRT, 
PURCHCRT. ICF, PURCHDEL, PURCHDEL. ICF 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 



PURCHASE. ESTIMATE NUM $ddddd.dd Estimate of cost. 
PURCHASE. ITB, PURCHASE, PURCHASE. ICF, PURCHCRT, 
PURCHCRT. ICF, PURCHDEL, PURCHDEL. ICF 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 



PURCHASE. FIRM NUM $ddddd.dd Actual cost of item. 

PURCHASE. ITB, PURCHASE, PURCHASE . ICF , PURCHCRT, 
PURCHCRT. ICF, PURCHDEL, PURCHDEL. ICF 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 



PURCHASE. ISSUE STR %25r Last name of individual item 

is issued to. 

PURCHASE. ITB, PURCHASE, PURCHASE . ICF , PURCHCRT, 

PURCHCRT. ICF, PURCHDEL, PURCHDEL. ICF 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 
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PURCHASE. LOCATION STR %7r Location of issue. 

PURCHASE . IT3 , PURCHASE, PURCHASE . ICF , PURCHCRT, 
PURCHCRT .ICF, PURCHDEL, PURCHDEL.ICF 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH I JKLMNOP 



PURCHASE. PA# STR %17r Plant Account #. 

PURCHASE. IT3, PURCHASE, PURCHASE . ICF , PURCHCRT, 
PURCHCRT. ICF, PURCHDEL, PURCHDEL.ICF 
Read Access : ABCDEFGH I JKLMNOP 
Write Access : A3CDEFGHIJKLMN0P 



PURCHASE. PO# STR %9r Purchase Order #. 

PURCHASE . ITB , PURCHASE, PURCHASE. ICF, PURCHCRT, 
PURCHCRT. ICF, PURCHDEL, PURCHDEL.ICF, REQUSRPT . TPL 
Read Access : A3CDEFGH I JKLMNOP 
Write Access : ABCDEFGH I JKLMNOP 



PURCHASE. PRIORITY HUM dd 

PURCHASE. ITB, PURCHASE, PURCHASE . ICF ,. PURCHCRT, 
PURCHCRT. ICF, PURCHDEL, PURCHDEL.ICF 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : A3CDEFGH IJKLMNOP 



PURCHASE. QTY STR rrr 

PURCHASE. ITB, PURCHASE, PURCHASE . ICF , PURCHCRT, 
PURCHCRT. ICF, PURCHDEL, PURCHDEL.ICF 

Read Access : A 

Write Access : A 



PURCHASE. RDD NUM dd-dd-dd Required delivery date. 

PURCHASE. IT3, PURCHASE, PURCHASE. ICF, PURCHCRT, 
PURCHCRT. ICF, PURCHDEL, PURCHDEL.ICF, REQUSRPT. TPL 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 



PURCHASE. RECEIVED NUM dd-dd-dd 

PURCHASE. ITB, PURCHASE, PURCHASE . ICF , PURCHCRT, 
PURCHCRT. ICF, PURCHDEL, PURCHDEL.ICF 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 
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PURCHASE. REMARKS STR %50r 

PURCHASE. ITS, PURCHASE, PURCHASE. ICF, PURCHCRT, 
PURCHCRT . ICF , PURCHDEL, PURCHDEL.ICF 
Read Access : ABCDEFGH I JKLMNOP 
Write Access : A3CDEFGH I JKLMNOP 



PURCHASE. REQUESTR STR %25r Last name of individual who 

requested the purchase. 

PURCHASE. ITB, PURCHASE, PURCHASE. ICF , PURCHCRT, 

PURCHCRT. ICF, PURCHDEL, PURCHDEL.ICF 
Read Access : ABCDEFGH I JKLMNOP 
Write Access : ABCDEFGH I JKLMNOP 



PURCHASE .SERIAL# STR % 1 2 r 

PURCHASE. IT3, PURCHASE, PURCHASE. ICF, PURCHCRT, 
PURCHCRT. ICF, PURCHDEL, PURCHDEL.ICF 
Read Access : ABCDEFGH I JKLMNOP 
Write Access : A3CDEFGH I JKLMNOP 



PURCHASE. STOCK# STR %20r 

PURCHASE. ITB, PURCHASE, PURCHASE. ICF, PURCHCRT, 
PURCHCRT. ICF, PURCHDEL, PURCHDEL.ICF, REQUSRPT.TPL 
Read Access : ABCDEFGH I JKLMNOP 
Write Access : ABCDEFGH I JKLMNOP 



PURCHASE. VENDOR STR %40r 

PURCHASE. ITB, PURCHASE, PURCHASE. ICF, PURCHCRT, 
PURCHCRT. ICF, PURCHDEL, PURCHDEL.ICF, REQUSRPT.TPL 
Read Access : ABCDEFGH I JKLMNOP 
Write Access : ABCDEFGH I JKLMNOP 



TABLE STR 



The name of a table that 



one of the following functions will be performed on? 
browse the table, update a record in the table, create 
or delete a record. 



BRWTA3LE, 
INDIRDLT, 
INVENDLT, 
OPTARDLT, 
OTHERDLT, 
PFUNDDLT, 
PHISTDLT, 
PURCHDLT, 
TRAVLMEN , 
UPDRECRD 



CRTRECRD, 

INDIRMEN, 

INVENMEN, 

OPTARMEN, 

OTHERMEN, 

PFUNDMEN, 

PHISTMEN, 

PURCHMEN, 

TVLEXDLT, 



DELTREC1 

INDIRUPD, 

INVENUPD, 

OPTARUPD, 

OTHERUPD, 

PFUNDUPD, 

PHISTUPD, 

PURCHUPD, 

TVLEXUPD, 
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TVLEXP. ADVANCE NUM Sddd.dd $Amount of advance. 

TVLEXP.ITB, TVLEXP, TVLEXP. ICF, TVLEXCRT, 

TVLEXCRT . ICF , TVLEXDEL , TVLEXDEL .ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



TVLEXP. CLAIM NUM dd-dd-dd Date claim is filed. 

OUTSTRPT . TPL , TVLEXP.ITB, TVLEXP, TVLEXP. ICF, TVLEXCRT, 
TVLEXCRT. ICF, TVLEXDEL, TVLEXDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



TVLEXP. CODE STR %3r Code indicating type of 

travel; recruit, invitational, regular, or association. 
TVLEXP.ITB, TVLEXP, TVLEXP. ICF, TVLEXCRT, 

TVLEXCRT. ICF, TVLEXDEL, TVLEXDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access ; ABCDEFGHIJKLMNOP 



TVLEXP. COSTCODE STR %5r Costcode or job order#. 

OUTSTRPT . TPL , TVLEXP.ITB, TVLEXP, TVLEXP. ICF, TVLEXCRT, 
TVLEXCRT. ICF, TVLEXDEL, TVLEXDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



TVLEXP. DATEDEP NUM dd-dd-dd Date travel originated. 

3RWTABLE , TVLEXP. IT3, TVLEXP, TVLEXP. ICF, TVLEXCRT, 
TVLEXCRT. ICF, TVLEXDEL, TVLEXDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access ; ABCDEFGHIJKLMNOP 



TVLEXP. DATERET NUM dd-dd-dd Date travel is concluded. 

TVLEXP. IT3, TVLEXP, TVLEXP. ICF, TVLEXCRT, 

TVLEXCRT. ICF, TVLEXDEL, TVLEXDEL. ICF 
Read Access ; ABCDEFGHIJKLMNOP 
Write Access ; ABCDEFGHIJKLMNOP 



TVLEXP. DOC# STR %10r Travel order #. 

BRWTABLE, DELTREC2 , OUTSTRPT. TPL , TVLEXP. IT3, TVLEXP, 
TVLEXP. ICF, TVLEXCRT, TVLEXCRT. ICF, TVLEXDEL, TVLEXDEL. ICF, 
UPDRECRD 

Read Access ; ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
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TVLEXP. DOV# STR rrrrr Disbursing Office Voucher #. 

OUTSTRPT • TPL , TVLEXP.ITB, TVLEXP, TVLEXP. ICF, TVLEXCRT , 
TVLEXCRT . ICF , TVLEXDEL, TVLEXDEL. ICF 

Read Access : A 

Write Access : A 



TVLEXP. ENTRY NUM dd-dd-dd Date entry of record. 

TVLEXP.ITB, TVLEXP, TVLEXP. ICF, TVLEXCRT, 

TVLEXCRT. ICF, TVLEXDEL, TVLEXDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



TVLEXP. ESTIMATE NUM Sdddd.dd Estimated cost of travel. 
TVLEXP.ITB, TVLEXP, TVLEXP. ICF, TVLEXCRT, 

TVLEXCRT. ICF, TVLEXDEL, TVLEXDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



TVLEXP. FIRM NUM $ddddd.dd Actual cost of travel. 

TVLEXP.ITB, TVLEXP, TVLEXP. ICF, TVLEXCRT, 

TVLEXCRT. ICF, TVLEXDEL, TVLEXDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



TVLEXP. LOCATION STR %25r Destination of traveler. 

TVLEXP. IT3, TVLEXP, TVLEXP. ICF, TVLEXCRT, 

TVLEXCRT. ICF, TVLEXDEL, TVLEXDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



TVLEXP. RE0UE3TR STR %20r Name of travler. 

OUTSTRPT. TPL, TVLEXP.ITB, TVLEXP, TVLEXP. ICF, TVLEXCRT, 
TVLEXCRT. ICF, TVLEXDEL, TVLEXDEL. ICF 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 



UPDATVAR STR or NUM A variable which is used to 

determine which selection criterion is used to update a 
record. (UPDATVAR equals a specific field's value.) 
INDIRUPD, INVENUPD, OPTARUPD, OTHERUPD, PFUNDUPD, PHISTUPD, 
PURCHUPD, TVLEXUPD, UPDRECRD 
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APPENDIX I 
PROGRAM LISTINGS 

TABLE OF CONTENTS 



FILE 


PAGE 


FILE 


PAGE 


brwtable 


135 


outstrpt 


152 


crtrecrd 


137 


persdmen 


153 


dbmen 


139 


pf unddlt 


164 


deltrecl 


140 


pf undmen 


155 


deltrec2 


141 


pf undrpt 


165 


expenmen 


146 


pf undupd 


167 


incommen 


147 


pnistdl t 


168 


indirdlt 


148 


phistmen 


169 


indirmen 


149 


phistrpt 


170 


indirupd 


150 


phistupd 


171 


invendl t 


151 


prprtmen 


172 


invenmen 


152 


purchdlt 


173 


invenrpt 


153 


purchmen 


174 


invenupd 


154 


purchupd 


175 


ma inmen 


155 


purrtmen 


175 


optardlt 


156 


reprtmen 


177 


optarmen 


157 


requsrpt 


173 


optarupd 


158 


travlmen 


179 


otherdlt 


159 


tvlexdlt 


180 


othermen 


160 


tvlexupd 


131 


otherupd 


161 


updrecrd 
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This appendix contains listings of all the AS System's 
perforin files, except menus and forms. The code for the menus 
and forms can be "looked at" by using K-Paint. 
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/* BRWTABLE. IPF - This module browses a table. 


V 


/* Called by; 


INDIRMEN. IPF , 


OPTARMEN. IPF, PFUNDMEN. IPF, 


*/ 


/* 


PHISTMEN.IPF, 


PURCHMEN. IPF, TRAVLMEN. IPF, 


V 


/* 


OTHERMEN. IPF, 


INVENMEN. IPF 


*/ 


/* Calls; 


INDIRECT. IPF, 


OPTAR. IPF, PFUNDING. IPF, 


*/ 


/* 


PH I STORY. IPF, 


PURCHASE . IPF , TVLEXP . IPF , 


*/ 


/* 


OTHER. IPF, TABLDFRM. IPF, INVENTOR. IPF 


V 


/* Author: R. 


Booker, 15 Oct 


85 


*/ 


E.ICAS = TRUE 


; I ignore case 


: differences among string values 




PERFORM TABLDFRM; 






PUTFORM TABLDFRM; 






TABLE = #A; 








TEST TABLE 








CASE "INDIRECT"; 






USE 


INDIRECT; 






SORT 


INDIRECT 3Y AZ 


PR I NCI PL; 




LOAD 


FROM INDIRECT; 


! the indirect funds entry form 



BROWSE INDIRECT ALL WITH INDIRECT; 

BREAK; 

CASE "INVENTOR"; 

USE INVENTOR; 

SORT INVENTOR BY AZ PA#; 

LOAD FROM INVENTOR; i the inventory entry form 
BROWSE INVENTOR ALL WITH INVENTOR; 

BREAK; 

CASE "OPTAR"; 

USE OPTAR; 

SORT OPTAR BY AZ RECEIVED; 

LOAD FROM OPTAR; I the OPTAR entry form 
BROWSE OPTAR ALL WITH OPTAR; 

BREAK; 
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CASE "OTHER" : 

USE OTHER? 

SORT OTHER BY AZ PRINCIPL; 

LOAD FROM OTHER; ! the other funds entry form 
BROWSE OTHER ALL WITH OTHER? 

BREAK; 

CASE "PFUNDING": 

USE PFUNDING? 

SORT PFUNDING BY AZ LNAME? 

LOAD FROM PFUNDING? I the personnel funding entry form 
BROWSE PFUNDING ALL WITH PFUNDING? 

BREAK; 

CASE "PHISTORY" : 

USE PHISTORY? 

SORT PHISTORY BY AZ LNAME? 

LOAD FROM PHISTORY? I the personnel history entry form 
BROWSE PHISTORY ALL WITH PHISTORY? 

BREAK ; 

CASE "PURCHASE": 

USE PURCHASE; 

SORT PURCHASE BY AZ DOC#? 

LOAD FROM PURCHASE? ! the purchase entry form 
BROWSE PURCHASE ALL WITH PURCHASE? 

BREAK? 

CASE "TVLEXP": 

USE TVLEXP? 

SORT TVLEXP BY AZ DATEDEP, DOC#? 

LOAD FROM TVLEXP; ! the travel expenses entry form 
BROWSE TVLEXP ALL WITH TVLEXP? 

BREAK; 



ENDTEST; 

FINISH ALL; 
FORMANS = " "? 
E.ICAS = FALSE? 
RETURN? 
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/* CRTRECRD. IPF - This module creates a record in a passed */ 
/* table. V 
/* Called by: PFUNDMEN. IPF, PHISTMEN. IPF , TRAVLMEN. IPF, */ 
/* INDIRMEN. IPF, OTHERMEN. IPF, PURCHMEN. IPF , */ 
/* OPT ARMEN. IPF, INVENMEN. IPF */ 
/* Calls: INDIRCRT. IPF, OPTARCRT. IPF, PFUNDCRT. IPF, */ 
/* PHISTCRT. IPF, PURCHCRT . IPF , TVLEXCRT.IPF */ 
/* OTHERCRT. IPF, TABLDFRM. IPF , INVENCRT. IPF */ 
/* Author: R. Booker 26 Jan 86 */ 



E.LMOD=FALSE; ! only blanks will first appear in the creation 

! form 

PERFORM TABLDFRM; 

PUTFORM TABLDFRM; 

TABLE = #A; 

TEST TABLE 

CASE "INDIRECT": 

USE INDIRECT; 

LOAD FROM INDIRCRT; ! the indirect cost form 
CREATE RECORD FOR INDIRECT WITH INDIRCRT; 

BREAK; 

CASE "INVENTOR": 

USE INVENTOR; 

LOAD FROM INVENCRT; ! the inventory form 
CREATE RECORD FOR INVENTOR WITH INVENCRT; 

BREAK; 

CASE "OPTAR": 

USE OPTAR; 

LOAD FROM OPTARCRT; I the optar form 

E.ICOM = TRUE; ! immediate compute of virtual field 

CREATE RECORD FOR OPTAR NITH OPTARCRT; 

E.ICOM = FALSE; BREAK; 
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CASE "OTHER" : 

USE OTHER; 

LOAD FROM OTHERCRT; ! the other funds form 
CREATE RECORD FOR OTHER WITH OTHERCRT; 

BREAK ; 

CASE "PFUNDING" ; 

USE PFUNDING; 

LOAD FROM PFUNDCRT; I the personnel funding form 
CREATE RECORD FOR PFUNDING WITH PFUNDCRT; 

BREAK; 

CASE "PH I STORY"; 

USE PH I STORY; 

LOAD FROM PHISTCRT; i the personnel history form 
CREATE RECORD FOR PHISTORY WITH PHISTCRT; 

BREAK; 

CASE "PURCHASE"; 

USE PURCHASE; 

LOAD FROM PURCHCRT; ! the purchase form 
CREATE RECORD FOR PURCHASE WITH PURCHCRT; 

BREAK; 

CASE "TVLEXP" ; 

USE TVLEXP; 

LOAD FROM TVLEXCRT; ! the travel expenses form 
CREATE RECORD FOR TVLEXP WITH TVLEXCRT; 

BREAK; 

ENDTEST; 

FINISH ALL; 

FORMANS = " " ; ! places a blank in calling module prompt 

E.LMOD=TRUE; ! default 

RETURN; 
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/* DBMEN.IPF - Brings up the data base menu, and perform */ 
/* (1.0) either EXPENMEN. IPF, INCOMMEN. IPF or */ 
/* INVENMEN. IPF */ 
/* Called by: MAINMEN. IPF V 
/* Calls: DBFRM.IPF, ERRORFRM. IPF , EXPENMEN. IPF, */ 
/* INCOMMEN. IPF, INVENMEN. IPF */ 
/* Author: R. Booker 15 Jan 86 */ 



FORMANS = " "; 

WHILE FORMANS NE "4" DO ! don't exit from module 

PERFORM D3FRM; ! expenses form 

PUTFORM D3FRM; 

GETFORM DBFRM; 

WHILE NOT (FORMANS IN ["1" , "2" , "3" , "4" ] ) DO 
PERFORM ERRORFRM; 

PUTFORM ERRORFRM; 

GETFORM ERRORFRM; 

ENDWHILE; 

TEST FORMANS 



CASE 


"1": 


PERFORM 


" EXPENMEN. IPF" ; 


3 RE AX ; 


CASE 


"2": 


PERFORM 


"INCOMMEN. IPF"; 


BREAK ; 


CASE 


"3" : 


PERFORM 


"INVENMEN. IPF" ; 


3REAK; 



ENDTEST; 

ENDWHILE; ! f ormans = "4" 

FORMANS = " " ; ! places a blank at calling menu prompt 

RETURN; 
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/* DELTREC1 . IPF - This module gives a user another chance */ 
/* before deleting a record. */ 
/* Called by: INDIRDLT. IPF, OPTARDLT. IPF, OTHERDLT. IPF, */ 
/* PFUNDDLT. IPF, PHISTDLT. IPF , PURCHDLT. IPF, */ 
/* TVLEXDLT. IPF, INVENDLT. IPF */ 
/* Calls: DELQSFRM. IPF, DELERFRM. IPF , DELTREC2 . IPF */ 
/* Author: R. Booker, 30 Nov 85 */ 

E.ICAS = TRUE; 



TABLE = #A; i table for deletion, passed from calling module 

PASSVAR = #3; I value of condition variaole for deletion 

PASSCOND = #C; ! condition for deletion, passed from calling 

1 module 

DELTANS = " n ; ! updated by DELQSFRM 

PERFORM DELQSFRM; I checks to ensure that the user wants to 
PUTFORM DELQSFRM; ! delete 
GETFORM DELQSFRM; 

WHILE NOT (DELTANS IN ( "Y" , "N" ] ) DO I check input 
PERFORM DELERFRM; 

PUTFORM DELERFRM; 

GETFORM DELERFRM; 

ENDWHILE; 

IF DELTANS = "Y" THEN 

PERFORM "DELTREC2 . IPF" USING "TABLE", "PASSVAR", "PASSCOND"; 
ENDIF; 

FORMANS = " "; 1 places a blank at calling menu prompt 
RETURN; 
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/* DELTREC2 . IPF - This module delete's a record from a passed */ 



/* table. */ 
/* Called by: DELTREC1 . IPF */ 
/* Calls: INDIRDEL. IPF, OTHERDEL. IPF, PHISTDEL . IPF , */ 
/* PURCHDEL . IPF , TVLEXDEL . IPF , DELETFRM . IPF , */ 
/* TABLDFRM . IPF , PFUNDDEL. IPF, OPTARDEL .IPF */ 
/* INVENDEL • IPF */ 
/* Author: R. Booker, 30 Nov 85 */ 



E.ICAS = TRUE; ! ignore case differences among string values 



PASTABLE = #A; I table for deletion, passed from calling module 



DELETVAR = #3; I condition variable for deletion 



COND = #C; I condition for deletion, passed from calling 

! module 

PERFORM TABLDFRM; 

PUTFORM TABLDFRM; 

TEST PASTABLE I test the table which will be used for deletion 

CASE "INDIRECT": 

USE INDIRECT; 

LOAD FROM INDIRDEL; I the indirect cost deletion form 
BROWSE INDIRECT FOR EXPIRE = DELETVAR ALL WITH INDIRDEL; 
3REAK; 
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CASE "INVENTOR": 

USE INVENTOR; 

LOAD FROM INVENDEL;! the inventory deletion form 

IF COND = 1 THEN 1 browse on PA# 

BROWSE INVENTOR FOR PA# = DSLETVAR ALL\ 

WITH INVENDEL; 

ELSE 

IF COND a 2 THEN I delete on SERIAL# 

BROWSE INVENTOR FOR SERIAL# = DELETVAR ALL\ 
WITH INVENDEL; 

ENDIF ; 

ENDIF; 

3 RE AX ; 

CASE "OPTAR": 

USE OPTAR; 

LOAD FROM OPTARDEL; l the OPTAR deletion form 
IF COND = 1 THEN ! browse on RECEIVED 

BROWSE OPTAR FOR RECEIVED = DELETVAR ALL\ 

WITH OPTARDEL; 

ELSE 



IF COND = 2 THEN I browse on ENTRY 

BROWSE OPTAR FOR ENTRY = DELETVAR ALL\ 

WITH OPTARDEL; 

ENDIF; 

ENDIF; 

BREAK; 

CASE "OTHER": 

USE OTHER; 

LOAD FROM OTHERDEL; ! the other funds deletion form 
BROWSE OTHER FOR EXPIRE = DELETVAR ALL WITH OTHERDEL; 
BREAK ; 
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CASE "PFUNDING 



USE PFUNDING; 

LOAD FROM PFUNDDEL? ! the personnel funding deletion form 

IF COND = 1 THEN l browse on LNAME 

BROWSE PFUNDING FOR LNAME * DSLETVAR ALL\ 

WITH PFUNDDEL; 

ELSE 

IF COND = 2 THEN ! delete on LABOR# 

BROWSE PFUNDING FOR LABOR# = DELETVAR ALL\ 

WITH PFUNDDEL; 

ENDIF; 

END IF; 

BREAK; 

CASE "PHISTORY" : 

USE PHISTORY; 

LOAD FROM PHISTDEL; ! the personnel history deletion 

! form 

BROWSE PHISTORY FOR LNAME = DELETVAR ALL WITH PHISTDEL; 
BREAK ; 

CASE "PURCHASE": 

USE PURCHASE; 

LOAD FROM PURCHDEL; ! the purchase deletion form 
BROWSE PURCHASE FOR DOC# = DELETVAR ALL WITH PURCHDEL; 
BREAK; 

CASE "TVLEXP" : 

USE TVLEXP; 

LOAD FROM TVLEXDEL; ! the travel expenses deletion 

! form 

BROWSE TVLEXP FOR DOC# = DELETVAR ALL WITH TVLEXDEL; 
BREAK; 
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ENDTEST; 



IF # FOUND = TRUE THEN ! this prevents the current record from 

! being deleted if a record is not found 

PERFORM DELETFRM; ! notification that a record is being 
PUTFORM DELETFRM; ! deleted 

TEST PASTABLE 

CASE " INDIRECT” : 

MARK RECORDS IN INDIRECT WITH TRUE CURRENT; 
COMPRESS INDIRECT; 

BREAK ; 

CASE " INVENTOR” : 

MARK RECORDS IN INVENTOR WITH TRUE CURRENT; 
COMPRESS INVENTOR; 

BREAK; 

CASE "OPTAR": 

MARK RECORDS IN OPTAR WITH TRUE CURRENT; 

COMPRESS OPTAR; 

BREAK; 

CASE "OTHER'’; 

MARK RECORDS IN OTHER WITH TRUE CURRENT; 

COMPRESS OTHER; 

BREAK; 

CASE "PFUNDING" ; 

MARK RECORDS IN PFUNDING WITH TRUE CURRENT; 
COMPRESS PFUNDING; 

BREAK; 
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CASE "PHISTORY" : 

MARK RECORDS IN PHISTORY WITH TRUE CURRENT; 
COMPRESS PHISTORY; 

BREAK; 

CASE "PURCHASE": 

MARK RECORDS IN PURCHASE WITH TRUE CURRENT; 
COMPRESS PURCHASE; 

BREAK; 

CASE "TVLEXP" : 

MARK RECORDS IN TVLEXP WITH TRUE CURRENT; 
COMPRESS TVLEXP; 

BREAK ; 



ENDTEST; 



END IF; 

FINISH ALL; 
RETURN; 
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/* EXPENMEN. IPF - Brings up the expenses menu and performs */ 
/* (1.1) either PERSDMEN. IPF, TRAVLMEN. IPF or */ 
/* PURCHMEN V 
/* Called by: DBMEN.IPF */ 
/* Calls: EXPENFRM. IPF, ERRORFRM. IPF, PERSDMEN. IPF, */ 
/* TRAVLMEN. IPF, PURCHMEN. IPF */ 
/* Author: R. Booker 15 Jan 86 */ 



FORMANS = " " ; 

WHILE FORMANS NE "4" DO 1 don't exit module 

PERFORM EXPENFRM; ! expenses form 

PUTFORM EXPENFRM; 

GETFORM EXPENFRM; 

WHILE NOT (FORMANS IN ("l" , "2" , "3" , "4" ] ) DO 
PERFORM ERRORFRM; 

PUTFORM ERRORFRM; 

GETFORM ERRORFRM; 

ENDWHILE; 

TEST FORMANS 



CASE 


"1": 


PERFORM 


"PERSDMEN. IPF"; 


BREAK; 


CASE 


"2": 


PERFORM 


"TRAVLMEN. IPF" ; 


BREAK; 


CASE 


"3": 


PERFORM 


"PURCHMEN. IPF" ; 


BREAK; 



ENDTEST; 

ENDWHILE; ! f ormans = "4" 

FORMANS = " "; i places a blank at calling module prompt 
RETURN; 
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/* INCOMMEN. IPF (1.2) */ 
/* Brings up the data base income menu, and either performs */ 
/* OPTARMEN.IPF, INDIRMEN. IPF or OTHERMEN. IPF */ 
/* Called by: D3MEN.IPF */ 
/* Calls: INCOMFRM.IPF, ERRORFRM. IPF, OPTARMEN. IPF, */ 
/* INDIRMEN. IPF, OTHERMEN. IPF */ 
/* Author: R. Booker 15 Jan 36 */ 



FORMANS = " 

WHILE FORMANS NE "4" DO I don't exit module 

PERFORM INCOMFRM; ! data base menu 

PUTF ORM I NCOMF RM ? 

GETFORM I NCOMF RM ; 

WHILE NOT (FORMANS IN [ " 1" , " 2" , ” 3 " , " 4" ] ) DO 
PERFORM ERRORFRM; 

PUTF ORM ERRORF RM ; 

GETFORM ERRORFRM; 

ENDWHILE; 

TEST FORMANS 



CASE 


"1" : 


PERFORM 


"OPTARMEN. IPF" ; 


BREAK; 


CASE 


"2" : 


PERFORM 


"INDIRMEN. IPF"; 


BREAK ; 


CASE 


'» -2 " . 
J • 


PERFORM 


"OTHERMEN. IPF"; 


BREAK; 



ENDTEST; 

ENDWHILE; ! f ormans = "4" 

FORMANS = " " ; ! places a blank at calling menu prompt 

RETURN; 
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/* INDIRDLT. IPF (1.2. 2. 2) */ 
/* Brings up the menu for the deletion of a record from the */ 
/* indirect funds table. */ 
/* Called by: INDIRMEN. IPF */ 
/* Calls: INDELFRM. IPF, ER1INDIR. IPF , DELTREC1 . IPF */ 
/* Author: R. Booker 22 Jan 86 */ 



FORMANS = " " ? 

ENTRYONE =0; I entered from indelfrm 



PASCOND = 0; ! condition for deletion, no choice = 0 



WHILE ENTRYONE = 0 DO ! exit from module 

PERFORM INDELFRM; ! indirect deletion menu 

PUTFORM INDELFRM; 

GETFORM INDELFRM; 

WHILE ENTRYONE = 0 DO ! check input 
PERFORM ER1INDIR; 

PUTFORM ER1INDIR; 

GETFORM ER1INDIR; 

ENDWHILE; 



PERFORM " DELTREC1 . IPF " USING "\" INDIRSCT\" " , "ENTRYONE" , \ 
"PASCOND" ; 



ENDWHILE; ! f ormans not blank 



ENTRYONE = 0; 

FORMANS = " " ; ! places a blank at calling module prompt 

RETURN; 
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/* INDIRMEN. IPF - Brings up the menu for indirect income table*/ 
/* (1.2.2) and offers the following options: browse the*/ 



/* INDIRECT table, add, update or delete a */ 
/* record to or from it, and to quit. */ 
/* Called by: INCOMMEN. IPF */ 
/* Calls: INDIRFRM. IPF, ERRORFRM. IPF , BRWTABLE. IPF, */ 
/* INDIRUPD. IPF, CRTRECRD . IPF , INDIRDLT. IPF */ 
/* Author: R. Booker 15 Jan 86 */ 



FORMANS = " 

WHILE FORMANS NE "5" DO ! exit from module 

PERFORM INDIRFRM; i indirect cost menu 

PUTFORM INDIRFRM? 

GETFORM INDIRFRM; 



I check input 

WHILE NOT (FORMANS IN ["1", "2" , "3" , "4" , "5" ] ) DO 
PERFORM ERRORFRM? 

PUTFORM ERRORFRM? 

GETFORM ERRORFRM? 

ENDWHILE; 



TEST FORMANS 






CASE 


" 1 ": 


PERFORM 

BREAK? 


"BRWTABLE. IPF 


CASE 


" 2 " : 


PERFORM 


"INDIRUPD. IPF 


CASE 


"3": 


PERFORM 

BREAK? 


"CRTRECRD. IPF 


CASE 

ENDTEST? 


3 

3 
• • 


PERFORM 


"INDIRDLT. IPF 



USING " \" INDIRECT\" " ; 
BREAK ? 

USING "\"INDIRECT\" " ; 
3REAK ; 



ENDWHILE? ! f ormans = "5" 

FORMANS - " "? 1 places a blank at calling module prompt 

RETURN? 
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/* INDIRUPD. IPF - Brings up the menu for updating of the */ 
/* (1.2. 2.1) indirect funds table. */ 
/* Called by: INDIRMEN. IPF */ 
/* Calls: INUPDFRM. IPF,. ER2INDIR. IPF, UPDRECRD.IPF */ 
/* Author: R. Booker 22 Jan 86 */ 



FORMANS * " " ; 

ENTRYONE = " " ; i the 1st condition for an update, entered from 

I inupdfrm 

ENTRYTWO = " " ; i the 2nd condition for an update, entered from 

i inupdfrm 

PASCOND - 0; 1 the field to search for the update 

WHILE ENTRYONE = " " AND ENTRYTWO - " " DO I exit from module 
PERFORM INUPDFRM; 1 indirect funding update menu 

PUTFORM INUPDFRM; 

GETFORM INUPDFRM; 

WHILE ENTRYONE = " " AND ENTRYTWO = " " DO ! check input 
PERFORM ER2INDIR; 

PUTFORM ER2INDIR; 

GETFORM ER2INDIR; 

ENDWHILE; 

IF ENTRYONE NE " " THEN 

PASCOND = 1; ! update by cost code 

PERFORM "UPDRECRD.IPF" USING "\" INDIRECT\" " , \ 

" ENTRYONE " , " PASCOND " ; 

ELSE 

IF ENTRYTWO NE " " THEN 

PASCOND =2; i update by principl 

PERFORM "UPDRECRD.IPF" USING "\" INDIRECT\" " , \ 
"ENTRYTWO", "PASCOND"; 

ENDIF ; 

END IF; 

ENDWHILE; I f ormans not blank 

ENTRYONE = " "; ENTRYTWO = " "; 

FORMANS = " "; RETURN; 
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/* INVENDLT.IPF (1.3.2) */ 
/* Brings up the menu for the deletion of a record from the */ 
/* inventory table. */ 
/* Called by: INVENMEN. IPF */ 
/* Calls: IVDELFRM. IPF, EROINVEN. IPF, DELTREC1 . IPF */ 
/* Author: R. Booker 25 Feb 86 */ 



FORMANS = " "; 

ENTRYOHE = " " ; 1 entered from ivdelfrm 

ENTRYTWO = " " ; I entered from ivdelfrm 

PASCOND =0; I condition for deletion 

WHILE ENTRYONE = " " AND ENTRYTWO = " " DO ! exit from module 
PERFORM IVDELFRM; 1 inventory deletion menu 

PUTFORM IVDELFRM; 

GETFORM IVDELFRM; 

WHILE ENTRYONE = " " AND ENTRYTNO = " " DO ! check input 
PERFORM EROINVEN; 

PUTFORM EROINVEN; 

GETFORM EROINVEN; 

ENDWHILE; 

IF ENTRYONE NE " " THEN 

PASCOND =1; ! delete by PA# 

PERFORM "DELTRECl. IPF" USING "\" INVENTOR\" " A 
" ENTRYONE " , " PASCOND" ; 

ELSE 

IF ENTRYTWO NE " " THEN 

PASCOND =2; 1 delete by SERIAL# 

PERFORM "DELTRECl. IPF" USING "\" INVENTORY' ", \ 

" ENTRYTWO " , " PASCOND " ; 

END IF ; 

END IF; 

ENDWHILE; ! f ormans not blank 

ENTRYONE = " ENTRYTWO = " "; 

FORMANS = " "; I places a blank at calling module prompt 

RETURN; 
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/* INVENMEN. IPF 
/* (1.3) 

/* 

/* 



Brings up the menu for the inventory table */ 
and offers the following options: browse the*/ 
table, update, add, or delete a record, or */ 
quit. */ 



/* Called by: 
/* Calls: 

/* 

/* Author: 



DBMEN. IPF 
INVENFRM. IPF, 
INVENUPD. IPF, 
R. Booker 



ERRORFRM. IPF, 
CRTRECRD . IPF , 
25 Feb 86 



3 RATABLE. IPF, 
INVENDLT. IPF 



V 

V 

V 

V 



FORMANS = 



WHILE FORMANS ME "5" DO I exit from module 



PERFORM INVENFRM; 1 inventory menu 

PUTFORM I NV ENFRM ; 

GETFORM INVENFRM; 



! check input 

WHILE NOT (FORMANS IN ("1","2","3","4","5"]) DO 
PERFORM ERRORFRM; 

PUTFORM ERRORFRM; 

GETFORM ERRORFRM; 

ENDWHILE; 



TEST FORMANS 

CASE "l": 

CASE "2" : 
CASE "S'': 

CASE "4" : 
ENDTEST; 
ENDWHILE; 

FORMANS = " "; 
RETURN; 



PERFORM "BRWTA3LS. IPF” USING ” Y' I NVENTOR \" " ; 
BREAK ; 

PERFORM "INVENUPD. IPF”; BREAK; 

PERFORM "CRTRECRD. IPF" USING "\" INVENTORY' " ; 
BREAK; 

PERFORM "INVENDLT. IPF"; BREAK; 

I formans = "5" 

! places a blank at calling module prompt 
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/* INVENRPT.IPF (2.2.2) */ 
/* This module prints the quarterly inventory report. */ 
/* Called by: PURRTilEN. IPF */ 
/* Calls: TRPLDFRM. IPF V 
/* Author: R. Booker 25 Feb 86 */ 



PERFORM TRPLDFRM; ! Table and Report Loading form 
PUTFORM TRPLDFRM; 

E.LSTR = 50; I Change string length to 50 characters. 

E.OPRN = TRUE; ! Send output to printer. 

E.PDEP = 62; ! Change page depth to 52 lines. 

S.PNID = 130; ! Change page width to 130 character. 



USE INVENTOR ! inventory table. 

REPORT " INVENRPT" ORDER BY AZ PA# 

! Report was created with K-Report. 

FINISH INVENTOR 

E.LSTR = 15; ! Change all environment variables to their 

! defaults. 

E.OPRN = FALSE; 

E.PDEP = 60; 

S.PWID = 120; 

FORMANS = " " ; ! places a blank at calling module's prompt 

RETURN; 
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/* INVENUPD.IPF - 3r'ings up the menu for updating of the */ 
/* (1.3.1) inventory table. */ 
/* Called by: INVENMEN . IPF */ 
/* Calls: IVUPDFRM . IPF , EROINVEN. IPF f UPDRECRD . IPF */ 
/* Author: R. Booker 25 Feb 86 */ 



FORMANS = " "? 

ENTRYONE = " ! the 1st condition for an update, entered 

! from ivupdfrm 

ENTRYTVO = " " ; ! the 2nd condition for an update, entered 

! from ivupdfrm 

PASCOND = 0; ! the field to search for the update 

WHILE ENTRYONE = " " AMD ENTRYT70 = " " DO 1 exit from module 
PERFORM IVUPDFRM; I inventory update menu 

PUTFORM IVUPDFRM? 

GETFORM IVUPDFRM? 

WHILE ENTRYONE = " " AND ENTRYTWO = " " DO ! check input 
PERFORM EROINVEN? 

PUTFORM EROINVEN; 

GETFORM EROINVEN? 

ENDWHILE? 

IF ENTRYONE NE n n THEN 

PASCOND =1; ! update by PA# 

PERFORM "UPDRECRD. IPF" USING "\" INVENTORY' " , \ 
"ENTRYONE", "PASCOND"? 

ELSE 

IF ENTRYTWO NE " " THEN 

PASCOND =2? ! update oy SERIAL# 

PERFORM "UPDRECRD. IPF" USING "\" INVENTORY' " , \ 
"ENTRY TWO" , "PASCOND" ? 

END IF? 

END IF; 

ENDWHILE; ! formans not blank 

ENTRYONE = " "? ENTRY TWO = " "? 

FORMANS = " "? RETURN; 
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/* MAINMEN. IPF (0) */ 

/* Brings up the main AS Department data base menu, performs */ 
/* DBMEN.IPF or REPRTMEN.IPF */ 

/* Calls: MAINFRM. IPF , ERRORFRM. IPF, DBMEN.IPF, REPRTMEN.IPF */ 

/* Author: R. Booker 15 Jan 86 */ 

FORMANS = " 

WHILE FORMANS NE "3" DO 1 exit from module 

PERFORM MAINFRM? ! system banner menu 

PUTFORM MAINFRM; 

JETFORM MAINFRM? 

NHILE NOT (FORMANS IN ["1","2","3"]) DO ! input check 

PERFORM ERRORFRM? 

PUTFORM ERRORFRM? 

GETFORM ERRORFRM? 

ENDWHILE? 

TEST FORMANS 

CASE "l" : PERFORM "DBMEN.IPF"; BREAK? 

CASE " 2" : PERFORM " REPRTMEN. IPF " ; BREAK ? 

SNDTSST? 



ENDWHILE? I f ormans = "3" 

RELEASE ALL; 

CLEAR; 

RETURN? 
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/* OPTARDLT. IPF (1.2. 1.2) */ 
/* Brings up the menu for the deletion of a record from the */ 
/* OPTAR funding table. */ 
/* Called by: OPTARMEN.IPF */ 
/* Calls: OPDELFRM. IPF, SROOPTAR. IPF, DELTREC1 . IPF */ 
/* Author: R. Booker 22 Jan 86 */ 



FORMANS = " " ; 

ENTRYONE =0; ! entered from opdelfrm 

ENTRYTWO =0; ! entered from opdelfrm 

PASCOND = 0; ! condition for deletion 

WHILE ENTRYONE = 0 AND ENTRYTWO = 0 DO ! exit from module 

PERFORM OPDELFRM; - ! OPTAR deletion menu 

PUTFORM OPDELFRM; 

GETFORM OPDELFRM; 

WHILE ENTRYONE = 0 AND ENTRYTWO = 0 DO ! check input 
PERFORM EROOPTAR; 

PUTFORM EROOPTAR; 

GETFORM EROOPTAR; 

ENDWHILE; 

IF ENTRYONE NE 0 THEN 

PASCOND =1; ! delete by RECEIVED 

PERFORM "DELTRECl. IPF" USING "\"OPTAR\"" , "ENTRYONE" , \ 
"PASCOND"; 

ELSE 

IF ENTRYTWO NE 0 THEN 

PASCOND =2; ! delete by ENTRY 

PERFORM "DELTRECl. IPF" USING "\"OPTAR\" " , \ 
"ENTRYTWO " , "PASCOND"; 

END IF; 

ENDIF; 

ENDWHILE; ! f ormans not blank 

ENTRYONE = 0; ENTRYTWO = 0; 

FORMANS = " " ; ! places a blank at calling module prompt 

RETURN; 
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/* OPTARMEN. IPF - Brings up the menu for the OPTAR taole and */ 
/* (1.2.1) offers the following options: browse the */ 
/* table, update, add, or delete a record, or V 
/* quit. */ 
/* Called by: INCOMMEN.IPF */ 
/* Calls: OPTARFRM . IPF , ERRORFRM. IPF , B RATABLE . IPF , V 
/* OPTARUPD. IPF, CRTRECRD. IPF, OPTARDLT. IPF */ 
/* Author: R. Booker 15 Jan 86 */ 



FORMANS = n "; 

WHILE FORMANS NE "5" DO l exit from module 

PERFORM OPTARFRM; l OPTAR menu 

PUTFORM OPTARFRM; 

GETFORM OPTARFRM; 

! check input 

ttHILE NOT (FORMANS IN [ - 1% - 2" , "3 " , " 4" , ”5 " ] ) DO 
PERFORM ERRORFRM; 

PUTFORM ERRORFRM; 

GETFORM ERRORFRM; 

ENDWHILE; 

TEST FORMANS 



CASE 


"1": 


PERFORM 


"3RNTA3LE.IPF" USING n \" 


OPTAR\" " ; 






BREAK ; 






CASE 


” 2" : 


PERFORM 


"OPTARUPD. IPF" ; BREAK; 




CASE 


"3": 


PERFORM 


"CRTRECRD. IPF" USING ”\" 


OPTAR\" "; 






3REAK; 






CASE 


"4": 


PERFORM 


"OPTARDLT. IPF" ; 3REAK; 





ENDTEST; 

ENDWHILE; ! f ormans = "5" 

FORMANS = " "; ! places a blank at calling module prompt 

RETURN; 
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/* OPTARUPD. IPF (1.2. 1.1) */ 
/* Brings up the menu for updating of the OPTAR funding table.*/ 
/* Called by: OPTARMEN. IPF */ 
/* Calls: OPUPDFRM. IPF, EROOPTAR . IPF , UPDRECRD.IPF */ 
/* Author: R. 3ooker 22 Jan 36 */ 



FORMANS = " 

ENTRYONE = 0; ! the 1st condition for an update, entered from 

1 opupdfrm 

ENTRYTWO = 0; ! the 2nd condition for an update, entered from 

! opupdfrm 

PASCOND =0; 1 the field to search for the update 
WHILE ENTRYONE = 0 AND ENTRY TWO = 0 DO ! exit from module 

PERFORM OPUPDFRM; 1 personnel funding update menu 

PUTFORM OPUPDFRM; 

GETFORM OPUPDFRM; 

WHILE ENTRYONE = 0 AND ENTRYTNO = 0 DO l check input 
PERFORM EROOPTAR; 

PUTFORM EROOPTAR; 

GETFORM EROOPTAR; 

ENDWHILE; 

IF ENTRYONE NE 0 THEN 

PASCOND =1; 1 update by RECEIVED 

PERFORM "UPDRECRD.IPF" USING "\"OPTAR\"" , "ENTRYONE", \ 
"PASCOND"; 

ELSE 

IF ENTRYTWO NE 0 THEN 

PASCOND =2; ! update by ENTRY 

PERFORM "UPDRECRD.IPF" USING "\"OPTAR\"" , \ 

" SNTRYTWO" , "PASCOND" ; 

ENDIF ; 

ENDIF; 

ENDWHILE; ! f ormans not blank 

ENTRYONE = 0; ENTRYTOO = 0; 

FORMANS = " "; RETURN; 
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/* OTHERDLT. IPF (1.2. 3. 2) */ 
/* Brings up the menu for the deletion of a record from the */ 
/* other funds table. */ 
/* Called by: OTHERMEN. IPF */ 
/* Calls: OTDELFRM.IPF, ER1INDIR. IPF , DELTREC1 . IPF */ 
/* Author: R. Booker 22 Jan 86 */ 



FORMANS = 



ENTRYONE =0; ! entered from otdelfrm 

PASCOND = 0; ! condition for deletion, no choice = 0 

WHILE ENTRYONE = 0 DO ! exit from module 

PERFORM OTDELFRM; ! other deletion menu 

PUTFORM OTDELFRM; 

GETFORM OTDELFRM; 

WHILE ENTRYONE = 0 DO 
PERFORM ER1INDIR; 

PUTFORM ER1INDIR; 

GETFORM ER1INDIR; 

ENDWHILE; 

PERFORM " DELTREC1 . IPF " USING "\"OTHER\" " r "ENTRYONE" f \ 
"PASCOND" ; 

ENDWHILE; ! f ormans not blank 



I check input 

! same as for indirect table 



ENTRYONE = 0; 

FORMANS = " " ; I places a blank at calling module prompt 
RETURN; 
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/* OTHERMEN. IPF - Brings up the menu for otner income, and */ 
/* (1.2.3) offers the following options: browse the */ 
/* OTHER table, add, update, or delete a */ 
/* record, or quit. */ 
/* Called by: INCOMMEN.IPF */ 
/* Calls: OTHERFRM . IPF , ERRORFRM. IPF , B RATABLE. IPF, */ 
/* OTHERUPD. IPF, CRTRECRD . IPF , OTHERDLT. IPF */ 
/* Author: R. Booker 15 Jan 86 */ 



FORMANS = " " ; 

WHILE FORMANS NE "5" DO ! exit from module 

PERFORM OTHERFRM; ! personnel other funds menu 

PUTFORM OTHERFRM; * 

GETFORM OTHERFRM; 

! check input 

WHILE NOT (FORMANS IN ("1" , "2" , "3" , "4" , H 5" ] ) DO 
PERFORM ERRORFRM; 

PUTFORM ERRORFRM; 

GETFORM ERRORFRM; 

ENDWHILE; 

TEST FORMANS 



CASE 


"1” : 


PERFORM 


"3RWTA3LE. IPF" 


USING "\" 


OTHER\" " ; 






BREAK; 








CASE 


" 2 ": 


PERFORM 


"OTHERUPD. IPF" 


; BREAK; 




CASE 


"3" : 


PERFORM 


"CRTRECRD. IPF" 


USING "\" 


OTHER\" "; 






BREAK ; 








CASE 


"4": 


PERFORM 


"OTHERDLT. IPF" 


; BREAK; 





ENDTEST; 

ENDWHILE; ! f ormans = "5" 

FORMANS = " "; ! places a blank at calling module prompt 

RETURN; 
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/* OTHERUPD.IPF - 3rings up the menu for updating of the other*/ 



/* 


(1.2. 3.1) 


funds 


table. 


*/ 


/* 


Called by: 


OTHERMEN. 


IPF 


*/ 


/* 


Calls : 


OTUPDFRM. 


IPF, ER2INDIR. IPF, UPDRECRD. IPF 


*/ 


/* 


Author: R. 


Booker 


22 J an 8 6 


*/ 



FORMANS = " " ; 

ENTRYONE = " " ; i the 1st condition for an update, entered 

! from otupdfrm 

ENTRYTWO = " ! the 2nd condition for an update, entered 

! from otupdfrm 

PASCOND =0; ! the field to search for the update 

WHILE ENTRYONE = " " AND ENTRYTNO = " " DO ! exit from module 
PERFORM OTUPDFRM; ! indirect funding update menu 

PUTFORM OTUPDFRM? 

GETFORM OTUPDFRM? 

WHILE ENTRYONE = " " AND ENTRYTWO = " " DO ! check input 

PERFORM ER2INDIR; I same as for the indirect table 

PUTFORM ER2INDIR? 

GETFORM ER2INDIR? 

ENDNHILE; 

IF ENTRYONE NE " " THEN 

PASCOND =1; ! update by cost code 

PERFORM "UPDRECRD. IPF" USING "\"OTHER\"" , "ENTRYONE" , \ 
"PASCOND" ? 

ELSE 

IF ENTRYTNO NE " " THEN 

PASCOND = 2? ! update by principl 

PERFORM "UPDRECRD. IPF" USING "\"OTHER\" " , \ 

" ENTRYTWO " , " PASCOND " ; 

ENDIF ; 

END IF? 

ENDWHILE; ! f ormans not blank 

ENTRYONE = " "; ENTRYTWO = " " ; 

FORMANS = " "; RETURN? 



161 



/* OUTSTRPT. IPF (2.3) */ 
/* This module prints the outstanding TO(s) report. */ 
/* Called py: REPRTMEN. IPF */ 
/* Calls: TRPLDFRM. IPF V 
/* Author: R. 3ooker 15 Jan 85 */ 



PERFORM TRPLDFRM; ! Table and Report Loading form 
PUTFORM TRPLDFRM; 



E.LSTR = 25; 
E.OPRN = TRUE; 
E.PDEP = 62; 
E.PWID = 130; 



! Change string length to 25 characters. 
! Send output to printer. 

! Change page depth to 62 lines. 

! Change page width to 130 character. 



USE TVLEXP 1 Travel Expenses table. 

REPORT "OUTSTRPT" ORDER BY AZ COSTCODE; 



FINISH TVLEXP 



E.LSTR = 15; ! Change all environment variables to their 

! defaults. 

E.OPRN = FALSE; 

E.PDEP = 60; 

E.PWID = 120; 

FORMANS = " "; ! places a blank at calling module's prompt 
RETURN; 
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/* PERSDMEN. IPF (1.1.1) - Brings up the personnel menu */ 



/* 


Called 


by: 


EXPENMEN. IPF 




V 


/* 


Calls : 




PERSDFRM. IPF, 


ERRORFRM . IPF , PFUNDMEN . IPF , 


*/ 


/* 






PHISTMEN. IPF 




*/ 


/* 


Author : 


R. 


Booker 


15 Jan 86 


V 



FORMANS = " " ? 

WHILE FORMANS NE "3" DO ! don't exit module 

PERFORM PERSDFRM; ! personnel menu 

PUTFORM PERSDFRM? 

GETFORM PERSDFRM? 



WHILE NOT (FORMANS IN [ " 1" , "2” , "3 " ] ) DO 
PERFORM ERRORFRM ? 

PUTFORM ERRORFRM? 

GETFORM ERRORFRM? 

ENDWHILE? 

TEST FORMANS 

CASE "1": PERFORM "PFUNDMEN. IPF" ? BREAK? 
CASE "2": PERFORM "PHISTMEN. IPF" ? BREAK? 
ENDTEST? 



ENDWHILE? 



! f ormans = "3" 



FORMANS = " " ; ! places a blank at calling menu prompt 

RETURN? 
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/* PFUNDDLT. IPF (1.1. 1.1. 2) */ 
/* Brings up the menu for the deletion of a record from the */ 
/* personnel funding table. */ 
/* Called by: PFUNDMEN. IPF */ 
/* Calls: PFDELFRM. IPF , EROPFUND. IPF, DELTREC1 . IPF */ 
/* Author: R. Booker 22 Jan 86 */ 



FORMANS = " "? 

ENTRYONE = " " ; I entered from pfdelfrm 

ENTRYTWO =0; 'I entered from pfdelfrm 

PASCOND =0; I condition for deletion 

WHILE ENTRYONE = " " AND ENTRYTWO = 0 DO ! exit from module 
PERFORM PFDELFRM? I personnel funding deletion menu 

PUTFORM PFDELFRM? 

GETFORM PFDELFRM? 

WHILE ENTRYONE = " " AND ENTRYTWO = 0 DO ! check input 
PERFORM EROPFUND? 

PUTFORM EROPFUND? 

GETFORM EROPFUND? 

ENDWHILE? 

IF ENTRYONE NE n " THEN 

PASCOND =1? I delete by last name 

PERFORM "DELTREC1.IPF" USING "\"PFUNDING\" " , \ 
"ENTRYONE" , "PASCOND"? 

ELSE 

IF ENTRYTWO NE 0 THEN 

PASCOND =2? ! delete by labor # 

PERFORM "DELTREC1. IPF" USING " \" PFUNDING\" " , \ 
"ENTRYTWO" , "PASCOND"? 

END IF? 

ENDIF ? 

ENDWHILE? I f ormans not blank 

ENTRYONE = " "? ENTRYTWO = 0? 

FORMANS = " "? ! places a blank at calling module prompt 

RETURN? 
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/* PFUNDMEN. IPF - 3rings up the menu for personnel funding. */ 
/* (1. 1.1.1) The following options then may be selected:*/ 
/* browse the personnel funding table, update,*/ 



/* add or delete a record. */ 
/* Called by: PERSDMEN.IPF */ 
/* Calls: PFUNDFRM. IPF, ERRORFRM. IPF, 3RWTABLE. IPF, */ 
/* CRTRECRD • IPF , PFUNDUPD. IPF , PFUNDDLT. IPF */ 
/* Author: R. Booker 15 Jan 86 */ 



FORMANS = " " ; 

WHILE FORMANS N2 ''5" DO ! exit from module 

PERFORM PFUNDFRI-l; 1 personnel funding menu 

PUTFORM PFUNDFRM; 

GETF ORM PFUNDF RM ? 



1 check input 

WHILE NOT (FORMANS IN [ "1" , "2" , "3 " , " 4" , " 5" ] ) DO 
PERFORM ERRORFRM; 

PUTFORM ERRORFRM; 

GETFORM ERRORFRM; 

ENDWHILE; 



TEST FORMANS 



CASE 


"1" : 


PERFORM 


"BRWTA3LE. IPF 






3REAK ; 




CASE 


"2": 


PERFORM 


"PFUNDUPD. IPF 


CASE 


"3": 


PERFORM 


"CRTRECRD. IPF 






3 REAR ; 




CASE 


"4": 


PERFORM 


"PFUNDDLT. IPF 



ENDTEST; 



USING "\" PFUNDING\" n ; 



3 REAR; 

USING "Y'pfundingV"; 
3 REAR; 



ENDWHILE; 



! formans = "5" 



FORMANS = " " ; RETURN ; 



165 



/* PFUNDRPT. IPF (2.1.1) */ 
/* This module prints the personnel funding report. */ 
/* Called by: PRPRTMEN. IPF */ 
/* Calls: TRPLDFRM. IPF */ 
/* Author: R. 3ooker 15 Jan 86 */ 



PERFORM TRPLDFRM; ! Table and Report Loading form 
PUTFORM TRPLDFRM; 



E.LSTR = 


25; 


E.OPRN = 


TRUE 


E.PDEP = 


62; 


E.PNID = 


130; 



! Change string length to 25 characters 
! Send output to printer. 

1 Change page depth to 62 lines. 

1 Change page width 'to 130 character. 



USE PFUNDING 



! Personnel Funding table. 



REPORT "PFUNDRPT" ORDER 3Y AZ PFUNDING. LNAME, \ 

AZ PFUNDING. FUNDFROM, AZ PFUNDING. FUNDTO 
! Report was created with K-Report. 

FINISH PFUNDING 



E.LSTR = 15; 
S.OPRN = FALSE; 
E.PDEP = 50; 
S.P^ID = 120; 



! Change all environment variables to their 
! defaults. 



FORMANS = " " ; ! places a blank at calling module's prompt 

RETURN; 
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/* PFUNDUPD. IPF (1.1. 1.1.1) - Brings up the menu for updating */ 



/* of the personnel funding table. */ 
/* Called by: PFUNDMEN. IPF */ 
/* Calls: PFUPDFRM . IPF , EROPFUND . IPF , UPDRSCRD.IPF */ 
/* Author: R. 3ooker 22 Jan 86 */ 



FORMANS = " " ; 

ENTRYONE =* n n ; ! the 1st condition for an update, entered 

! from pfupdfrm 

ENTRYTNO - 0; I the 2nd condition for an update, entered 

! from pfupdfrm 

PASCOND =0? ! the field to search for the update 

WHILE ENTRYONE = " " AND ENTRYTNO = 0 DO ! exit from module 
PERFORM PFUPDFRM; ! personnel funding update menu 

PUTFORM PFUPDFRM; 

GETFORM PFUPDFRM; 

WHILE ENTRYONE = n " AND ENTRYTWO = 0 DO ! check input 
PERFORM EROPFUND; 

PUTFORM EROPFUND; 

GETFORM EROPFUND; 

ENDWHILE; 

IF ENTRYONE NE n n THEN 

PASCOND =1; i update by last name 

PERFORM "UPDRECRD. IPF" USING "\"PFUNDING\" " , \ 

" ENTRYONE " , " PASCOND " ; 

ELSE 

IF ENTRYTWO NE 0 THEN 

PASCOND =2; ! update by laoor # 

PERFORM "UPDRECRD. IPF" USING "\"PFUNDING\" " , \ 
"ENTRYTNO" , "PASCOND" ; 

END IF ; 

END IF; 

ENDWHILE; ! f ormans not blank 

ENTRYONE = " "; ENTRYTWO = 0; 

FORMANS = " "; RETURN; 
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/* PHISTDLT. IPF (1.1. 1.2. 2) */ 
/* 3rings up the menu for the deletion of a record from */ 
/* personnel history table. */ 
/* Called by: PHISTMEN.IPF */ 
/* Calls: PHDELFRM. IPF , EROPHIST. IPF, DELTREC1 . IPF */ 
/* Author: R. Booker 19 Jan 86 */ 



FORMANS = " 

ENTRYONE = " " ; ! entered from phdelfrm 

PASCOND = 0? I condition for delation, no choice = 0 

WHILE ENTRYONE = " " DO ! exit from module 

PERFORM PHDELFRM; ! personnel history deletion menu 

PUTFORM PHDELFRM; 

GETFORM PHDELFRM; 

WHILE ENTRYONE = " " DO ! check input 
PERFORM EROPHIST; 

PUTFORM EROPHIST; 

GETFORM EROPHIST; 

ENDWHILE; 

PERFORM "DELTREC1. IPF" USING ”\"PHI3TORY\" " , " ENTRYONE ", \ 
"PASCOND" ; 



ENDWHILE; ! f ormans not blank 

ENTRYONE = " "; 

FORMANS = " " ; ! places a blank at calling module prompt 

RETURN; 
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/* PHISTMEN. IPF - Brings up the menu for the personnel history*/ 



/* (1.1. 1.2) table. The following options are then */ 
/* possible: browse a table, update, add or */ 
/* delete a record, and quit. */ 
/* Called by: PERSDMEN. IPF */ 
/* Calls: PHISTFRM. IPF, ERRORFRM. IPF, BRWTABLE. IPF, V 
/* PHISTUPD. IPF, CRTRECRD. IPF, PHISTDLT.IPF */ 
/* Author: R. Booker 15 Jan 86 */ 



FORMANS = " 

WHILE FORMANS NE "5" DO ! exit from module 

PERFORM PHISTFRM; ! personnel history menu 

PUTFORM PHISTFRM; 

GETFORM PHISTFRM; 

l check input 

WHILE NOT (FORMANS IN ("1" , "2" , "3" , "4", "5" ) ) DO 
PERFORM ERRORFRM; 

PUTFORM ERRORFRM; 

GETFORM ERRORFRM; 

ENDWHILE; 

TEST FORMANS 

CASE "l": 

CASE " 2” : 

CASE "3": 

CASE " 4” : 

ENDTEST; 

ENDWHILE? 

FORMANS = " "; 



PERFORM "BRWTABLE. IPF" USING '' \''PHISTORY\" " ; 
BREAK ; 

PERFORM "PHISTUPD. IPF" ; 3REAK; 

PERFORM "CRTRECRD. IPF" USING "\"PHISTORY\" " ; 
BREAK; 

PERFORM "PHISTDLT.IPF"; BREAK; 



! formans = "5" 
RETURN; 
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/* PHISTRPT. IPF (2.1.2) */ 
/* This module prints the personnel history report */ 
/* Called by: PRPRTMEN. IPF */ 
/* Calls: TRPLDFRM. IPF V 
/* Author: R. Booker 15 Jan 86 */ 



PERFORM TRPLDFRM; ! Table and Report Loading form 
PUTFORM TRPLDFRM; 



E.LSTR = 25; 
E.OPRN = TRUE; 
E.PDEP = 62; 
E.PNID = 136; 
USE PH I STORY 



! Change string length to 25 characters. 
! Send output to printer. 

! Change page depth to 52 lines. 

! Change page width to 135 character. 

! Personnel History table. 



REPORT '•PHISTRPT'’ ORDER BY AZ LNAME 

! Report was created with K-Report. 

FINISH PH I STORY 

E.LSTR = 15; I Change all environment variables to 

! their defaults. 

E.OPRN = FALSE; 

E.PDEP = 60; 

E.PNID = 120; 

FORMANS = " " ; i places a blank at calling module's prompt 

RETURN; 
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/* PHISTUPD. IPF - Brings up the menu for updating of the */ 
/* (1.1. 1.2.1) personnel history table. */ 
/* Called by: PHISTMEN.IPF */ 
/* Calls: PHUPDFRM. IPF, EROPHIST. IPF , UPDRECRD.IPF */ 
/* Author: R. Booker 18 Jan 86 */ 



FORMANS = 
ENTRYONE = 



PASCOND = 0; 



WHILE ENTRYONE = 



l the condition for an update, entered from 
i phupdfrm 

! the field to search for the update; 

! 0 = no option 

" DO l exit from module 



PERFORM PHUPDFRM; ! personnel history update menu 

PUTFORM PHUPDFRM; 

GETFORM PHUPDFRM; 

WHILE ENTRYONE = " " DO ! check input 
PERFORM EROPHIST; 

PUTFORM EROPHIST; 

GETFORM EROPHIST; 

ENDWHILE; 



PERFORM "UPDRECRD.IPF" USING "\"PHISTORY\" " , "ENTRYONE", \ 
"PASCOND" ? 

ENDWHILE; i formans not blank 

ENTRYONE = " "; 

FORMANS = " " ; I places a blank at calling module prompt 
RETURN; 
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/* PRPRTMEN. IPF (2.1) - Brings up the personnel reports menu */ 



/* Called by: REPRTMEN. IPF */ 
/* Calls: PFUNDRPT. IPF , PHISTRPT. IPF, PRPRTFRM. IPF, */ 
/* ERRORFRM. IPF */ 
/* Author: R. Booker 15 Jan 86 */ 



FORMANS = " "; 

WHILE FORMANS NE "3" DO 1 exit from module 

PERFORM PRPRTFRM; 1 personnel menu 

PUTFORM PRPRTFRM; 

GETFORM PRPRTFRM; 

WHILE NOT (FORMANS IN ["1" , "2" , "3" ] ) DO 
PERFORM ERRORFRM; 

PUTFORM ERRORFRM; 

GETFORM ERRORFRM; 

ENDV7HILE; 

TEST FORMANS 

CASE "1": PERFORM "PFUNDRPT. IPF" ; 3 RE AX; 

CASE "2": PERFORM "PHISTRPT. IPF" ; BREAK; 

ENDTEST; 

ENDWHILE; l f ormans = "3" 

FORMANS = " "; ! places a blank at calling modules prompt 

RETURN; 
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/* PURCHDLT. IPF (1.1. 3. 2) */ 
/* Brings up the menu for the deletion of a record from */ 
/* purchase table. */ 
/* Called by: PURCHMEN.IPF */ 
/* Calls: PUDELFRM.IPF, EROTVLEX . IPF , DELTREC1 . IPF */ 
/* Author: R. Booker 22 Jan 86 */ 



FORMANS =* " 



ENTRYONE =; i entered from pudelfrm 

PASCOND =0; 1 condition for deletion, no choice = 0 



WHILE ENTRYONE = " " DO 

PERFORM PUDELFRM; 

PUTFORM PUDELFRM; 

GETFORM PUDELFRM; 

WHILE ENTRYONE = " " DO ! 
PERFORM EROTVLEX; ! 

PUTFORM EROTVLEX; 1 

GETFORM EROTVLEX; 
ENDWHILE; 



exit from module 
purchase deletion menu 



check input 

same error form as travel 
expenses 



PERFORM "DELTREC1 . IPF" USING " \" PURCHASE \"" , " ENTRYONE ", \ 
" PASCOND" ; 



ENDWHILE; ! formans not blank 

ENTRYONE = " " ; 

FORMANS = " " ; ! places a blank at calling module prompt 

RETURN; 
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/* PURCHMEN. IPF - Brings up the menu for purchase, and offers*/ 



/* (1.1.3) the following options; browse the table, */ 
/* update, add, delete a record from it, or */ 
/* quit. */ 
/* Called by: EXPENMEN. IPF */ 
/* Calls: PURCHFRM. IPF, ERRORFRM. IPF , B RATABLE . IPF , */ 
/* PURCHUPD, CRTRECRD. IPF, PURCHDLT.IPF */ 
/* Author: R. Booker 15 Jan 86 */ 



FORMANS = " 

WHILE FORMANS NE "5" DO 
PERFORM PURCHFRM; 

PUTFORM PURCHFRM; 

GETFORM PURCHFRM; 

! check input 
WHILE NOT (FORMANS IN [ " 1" , " 2" , " 3 " , " 4" , " 5" ] ) DO 
P ERF ORM ERROR F RM ; 

PUTFORM ERRORFRM; 

GETFORM ERRORFRM; 

ENDWHILE; 



! exit from module 

! purchase menu 



TEST FORMANS 



CASE 


"l”: 


PERFORM 


"3RWTA3LE. IPF" 


USING "\" PURCHASE'S," " ; 






3REAK ; 






CASE' 


"2": 


PERFORM 


"PURCHUPD. IPF" 


; BREAK; 


CASE 


" 3 " : 


PERFORM 


"CRTRECRD. IPF" 


USING "\"PURCHASE\" " ; 






BREAK; 






CASE 


"4" : 


PERFORM 


"PURCHDLT.IPF" 


; BREAK; 



ENDTEST? 



ENDWHILE; ! f ormans = "5" 

FORMANS = " " ;! places a blank at calling module prompt 
RETURN; 
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/* PURCHUPD. IPF - Brings up the menu for updating of the */ 
/* (1.1. 3.1) purchase table. */ 
/* Called by: PURCHMEN.IPF */ 
/* Calls: PUUPDFRM. IPF, EROTVLEX . IPF , UPDRECRD.IPF */ 
/* Author: R. Booker 23 Jan 86 */ 



FORMANS = " 

ENTRYONE = " " ; ! the condition for an update, entered 

i from puupdfrm 

PASCOND =0; l the field to search for the update; 



! 0 = no 

NHILS ENTRYONE = " " DO 

PERFORM PUUPDFRM; 
PUTFORM PUUPDFRM; 
GETFORM PUUPDFRM; 

NHILE ENTRYONE = " " DO 
PERFORM EROTVLEX ; 
PUTFORM EROTVLEX; 
GETFORM EROTVLEX; 
ENDWHILE; 



option 

! exit from module 
I purchase update menu 

i check input 

! same error form as travel 
1 expenses 



PERFORM "UPDRECRD.IPF" USING "\"PURCHASE\" " , "ENTRYONE" , \ 
"PASCOND"; 



ENDWHILE; ! f ormans not blank 

ENTRYONE * " "; 

FORMANS = " " ; I places a blank at calling module prompt 
RETURN; 
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/* PURRTMEN. IPF - Brings up the requisition status/quarterly */ 



/* (2.2) inventory reports menu */ 
/* Called by: REPRTMEN. IPF */ 
/* Also calls: PURRTFRM. IPF, ERRORFRM. IPF , REQUSRPT. IPF , */ 
/* INVENRPT. IPF */ 
/* Author: R. Booker 15 Jan 86 */ 



FORMANS = " "; 

WHILE FORMANS NE "3" DO l exit from module 

PERFORM PURRTFRM; ! requisition status/quarterly inventory 
PUTFORM PURRTFRM; ! form 
GETFORM PURRTFRM; 

WHILE NOT ( FORMANS IN ( " 1 " , " 2 " , " 3 " ] ) DO 
' PERFORM ERRORFRM; 

PUTFORM ERRORFRM; 

GETFORM ERRORFRM; 

ENDWHILE; 

TEST FORMANS 

CASE " 1" : PERFORM "REQUSRPT. IPF" ; 3REAK; 

CASE "2": PERFORM " INVENRPT. IPF" ; BREAK; 

ENDTEST; 

ENDWHILE; ! f ormans = "3" 

FORMANS = " "; ! places a blank at calling modules prompt 

RETURN; 
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/* REPRTMEN.IPF - Brings up the reports menu, and performs */ 
/* (2) either PRPRTMEN. IPF, PURRTMEN. IPF, */ 
/* OUTSTRPT. IPF */ 
/* Called by: MAINMEN. IPF V 
/* Calls: REPRTFRM. IPF, ERRORFRM. IPF, PRPRTilEN. IPF, */ 
/* PURRTMEN. IPF, OUTSTRPT. IPF */ 
/* Author: R. Booker 15 Jan 86 V 



FORMANS = " 

WHILE FORMANS NE "5" DO 

PERFORM REPRTFRM; 

PUTFORM REPRTFRM; 

GETFORM REPRTFRM; 

WHILE NOT (FORMANS IN ( "1" , "2" , "4" , "5 " ] ) DO 
PERFORM ERRORFRM; 

PUTFORM ERRORFRM; 

GETFORM ERRORFRM; 

SNDV7HILE; 

TEST FORMANS 



CASE 


"l": 


PERFORM 


PRPRTMEN; 


BREAK; 


CASE 


H 2" : 


PERFORM 


PURRTMEN; 


3REAK ; 


CASE 


”3" : 


PERFORM 


3ALACRPT ; 


BREAK; 


CASE 


"4" : 


PERFORM 


OUTSTRPT ; 


BREAK ; 



ENDTEST; 

ENDWHILE; I f ormans = "5" 

FORMANS = " " ; I places a blank at calling module’s prompt 
RETURN; 



I exit from module 
! reports menu 
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/* REQUSRPT. IPF (2.2.1) */ 
/* This module prints the requisition status report. */ 
/* Called by: PURRTMEN. IPF */ 
/* Calls: TRPLDFRM. IPF */ 
/* Author: R. Booker 15 Jan 86 */ 



PERFORM TRPLDFRM; ! Table and Report Loading form 
PUTFORM TRPLDFRM; 



E.LSTR = 50; 
E.OPRN = TRUE; 
S.PDEP = 62; 
2.PWID = 130; 



! Change string length to 30 characters. 
! Send output to printer. 

! Change page depth to 52 lines. 

! Change page width to 130 character. 



USE PURCHASE 



! Purchase table. 



REPORT "REQUSRPT" ! Report was created with K-Report. 

FINISH PURCHASE 



E.LSTR = 15; I Change all environment variables to their 

! defaults. 

E.OPRN = FALSE; 

E.PDEP = 60; 

E.PNID = 120; 

FORMANS s I places a blank at calling module's prompt 

RETURN; 
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/* TRAVLMEN.IPF - Brings up the menu for travel expenses, */ 
/* (1.1.2) and offers the following options: browse the*/ 
/* travel expense table, update, add or delete */ 
/* a record from it. */ 
/* Called by: EXPENMEN. IPF */ 
/* Calls: TRAVFRM. IPF, ERRORFRM. IPF, 3 RATABLE. IPF, */ 
/* TVLEXUPD. IPF, CRTRECRD . IPF , TVLEXDLT. IPF */ 
/* Author: R. Booker 15 Jan 86 */ 



FORMANS = " "; 

WHILE FORMANS HE "5" DO ! exit from module 

PERFORM TRAVFRM; I travel expenses menu 

PUTFORM TRAVFRM? 

GETFORM TRAVFRM; 

1 check input 

WHILE NOT (FORMANS IN [ " 1" , " 2" , " 3 " , " 4" , " 5 " ] ) DO 
PERFORM E 
PUTFORM E 
GETFORM E 
ENDWHILE; 

TEST FORMANS 

CASE "1": 

CASE " 2" : 

CASE "3": 

CASE " 4" : 

ENDTEST; 

ENDWHILE; 

FORMANS = '' " ; 

RETURN? 



RRORFRM? 

RRORFRM; 

RRORFRM; 



PERFORM "3RWTABLE. IPF" USING "\"TVLEX?\" " ? 
BREAK ; 

PERFORM "TVLEXUPD. IPF” ; BREAK? 

PERFORM "CRTRECRD. IPF" USING " \"TVLEXP\" " ; 
BREAK ; 

PERFORM "TVLEXDLT. IPF" ; BREAK; 



! f ormans = "5" 

! places a blank at calling module prompt 
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/* TVLEXDLT. IPF - Brings 


up the menu for the deletion of a 


*/ 


/* (1.1. 2. 2) 


record 


from the travel expenses table. 


V 


/* Called by: 


TRAVLMEN. IPF 


*/ 


/* Calls: 


TVDELFRM. IPF, EROTVLEX . IPF , DELTREC1 . IPF 


V 


/* Author: R. 


Booker 


22 Jan 86 


V 


FORMANS = " 


" . 
t 






ENTRYONE = " 


" . 
9 


! entered from tvdelfrm 




PASCOND = 0; 


1 condition 


for deletion, no choice = 0 




WHILE ENTRYON 


2 = " " DO 


! exit from module 





PERFORM TVDELFRM; ! travel expenses deletion menu 

PUTFORM TVDELFRM; 

GETFORM TVDELFRM; 

WHILE ENTRYONE = " " DO ! check input 
PERFORM SROTVLEX; 

PUTFORM EROTVLEX; 

GETFORM EROTVLEX; 

ENDWHILE; 

PERFORM "DELTREC1 . IPF" USING "\"TVLEXP\" " , "ENTRYONE" A 
"PASCOND" ; 



ENDWHILE; ! f ormans not blank 

ENTRYONE = " "; 

FORMANS = " " ; ! places a blank at calling module prompt 

RETURN; 
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/* TVLEXUPD. IPF - 3rings up the menu for updating of the 
/* (1.1. 2.1) travel expenses table. 

/* Called by: TRAVLMEN.IPF 

/* Calls: TVUPDFRM . IPF , EROTVLEX. IPF, UPDRECRD.IPF 

/* Author: R. Booker 22 Jan 86 

FORMANS = " " ; 

ENTRYONE * " n ; ! the condition for an update, entered 

! from tvupdfrm 

PASCOND = 0; ! the field to search for the update; 

! 0 = no option 

WHILE ENTRYONE = " " DO » exit from module 

PERFORM TVUPDFRM? ! travel expenses update menu 

PUTFORM TVUPDFRM; 

GETFORM TVUPDFRM; 

WHILE ENTRYONE = " " DO ! check input 
PERFORM EROTVLEX; 

PUTFORM EROTVLEX; 

GETFORM EROTVLEX; 

ENDWHILS; 

PERFORM "UPDRECRD.IPF" USING "\"TVLEXP\" " , "ENTRYONE" ,\ 
"PASCOND" ? 



*/ 

V 

V 
*/ 

V 



ENDWHILE? I f ormans not blank 

ENTRYONE = " " ; 

FORMANS = " "? ! places a blank at calling module prompt 

RETURN; 
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/* UPDRECRD.IPF - This module updates a record in a table. */ 
/* Called by: INDIRUPD. IPF , OPTARUPD. IPF, PFUNDUPD . IPF , */ 
/* PHISTUPD. IPF, PURCHUPD. IPF, TVLEXUPD. IPF, */ 
/* OTHERUPD. IPF, INVENUPD. IPF */ 
/* Calls: INDIRECT. IPF, OPTAR.IPF, PFUNDING. IPF, */ 
/* PHISTORY. IPF, PURCHASE. IPF, TVLEXP.IPF, */ 
/* OTHER. IPF, TABLDFRM. IPF, INVENTOR. IPF */ 
/* Author: R. 3ooker 18 Jan 86 */ 



E.ICAS = TRUE; ! ignore case differences among string values 
PERFORM TABLDFRM? 

PUTFORM TABLDFRM? 



TABLE = #A? 1 passed from calling module 



UPDATVAR = #3; 1 the condition variable for the search 

COND = #C; 1 the condition field for selecting records for update 

TEST TABLE 

CASE '’INDIRECT”: 

USE INDIRECT? 

LOAD FROM INDIRECT? ! the indirect funds entry form 

IF COND = 1 THEN I browse on COSTCODE 

BROWSE INDIRECT FOR COSTCODE = UPDATVAR ALL \ 

WITH INDIRECT? 

ELSE 

IF COND * 2 THEN ! browse on PRINCIPL 

BROWSE INDIRECT FOR PRINCIPL = UPDATVAR ALL \ 
WITH INDIRECT? 

ENDIF ? 

END IF? 

3REAX ; 
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CASE "INVENTOR": 

USE INVENTOR; 

LOAD FROM INVENTOR; ! the inventory entry form 

IF COND = 1 THEN i browse on PA# 

BROWSE INVENTOR FOR PA# = UPDATVAR ALL \ 

WITH INVENTOR; 

ELSE 

IF COND = 2 THEN l browse on SERIAL# 

BROWSE INVENTOR FOR SERIAL# =* UPDATVAR ALL \ 
WITH INVENTOR; 

END IF; 

SNDIF; 

BREAK; 



CASE "OPTAR": 

USE OPTAR; 

LOAD FROM OPTAR; ! the OPTAR entry form 

IF COND = 1 THEN ! browse on RECEIVED 

BROWSE OPTAR FOR RECEIVED = UPDATVAR ALL \ 
WITH OPTAR; 

ELSE 

IF COND = 2 THEN I browse on ENTRY 

3R0WSE OPTAR FOR ENTRY = UPDATVAR ALL \ 
WITH OPTAR; 

ENDIF ; 

END IF; 

BREAK; 
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CASE "OTHER": 

USE OTHER; 

LOAD FROM OTHER; ! the other funds entry form 

IF COND = 1 THEN ! browse on COSTCODE 

BROWSE OTHER FOR COSTCODE = UPDATVAR ALL \ 

WITH OTHER; 

ELSE 

IF COND = 2 THEN ! browse on PRINCIPL 

BROWSE OTHER FOR PRINCIPL = UPDATVAR ALL \ 
WITH OTHER; 

END IF ; 

END IF; 

3REAK ; 

CASE "PFUNDING" : 

USE PFUNDING; 

LOAD FROM PFUNDING; i the personnel funding entry form 
IF COND = 1 THEN ! browse on LNAME 

3R0WSE PFUNDING FOR LNAME = UPDATVAR ALL \ 

WITH PFUNDING; 

ELSE 

IF COND = 2 THEN ! browse on LABOR# 

3R0WSE PFUNDING FOR LA30R# = UPDATVAR ALL \ 
WITH PFUNDING; 

END IF; 

END IF; 

BREAK ; 

CASE "PH I STORY": 

USE PHISTORY; 

LOAD FROM PHISTORY; ! the personnel history entry form 
3 ROWS E PHISTORY FOR LNAME = UPDATVAR ALL WITH PHISTORY; 
BREAK; 
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CASE "PURCHASE": 

USE PURCHASE; 

LOAD FROM PURCHASE; i the purchase entry form 
BROWSE PURCHASE FOR DOC# = UPDATVAR ALL WITH PURCHASE; 
BREAK ; 

CASE "TVLEXP": 

USE TVLEXP; 

LOAD FROM TVLEXP; ! the travel expenses entry form 
3 ROWS E TVLEXP FOR DOC# = UPDATVAR ALL WITH TVLEXP; 
BREAK; 



FINISH ALL; 
FORMANS = " 
RETURN; 
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APPENDIX J 
LIST OP TABLES 



This appendix contains a list of the AS System's ta- 
bles. Appendix C (the Data Dictionary) and the AS System's 
User's Manual contains additional information about the 
tables 's fields. The inclosed information may be obtained 
by using KnowledgeMan ' s "show" command. 
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Table name : INDIRECT 
File name : INDIRECT. IT3 
Read Access : A3CDEFGH I J KLMNOP 
Write Access : ABCDEFGH I J KLMNOP 
Creation Date : 02/25/86 

Modification Date : 02/25/86 

Number of Records : 44 



Field : #MARK LOGIC 

Read Access : A3 CDEFGHIJ KLMNOP 
Write Access : ABCDEFGH I J KLMNOP 
Picture : (default) 



Field : ENTRY NUM 

Read Access : ABCDEFGH I JXLMNOP 
Write Access : ABCDEFGH I JXLMNOP 
Picture : "dd-dd-dd" 



Field : STATUS STR 25 

Read Access : ABCDEFGH I JKLMNOP 
Write Access : ABCDEFGH I JKLMNOP 
Picture : "%25r" 



Field : PRINCIPL STR 20 
Read Access : ABCDEFGH I JKLMNOP 
Write Access : ABCDEFGH I JKLMNOP 
Picture : "%20r" 



Field : SPONSOR STR 40 

Read Access : A3CDEFGH I JXLMNOP 
Write Access : ABCDEFGH I JXLMNOP 
Picture : "%40r" 



Field : PROPOSAL STR 130 
Read Access : A3CDEFGHIJXLMN0P 
Write Access : ABCDEFGH I JXLMNOP 
Picture : "%130r" 



Field : PERIOD STR 20 

Read Access : ABCDEFGH I JKLMNOP 
Write Access : ABCDEFGH I JKLMNOP 
Picture : "%20r" 
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Field : ESTIMATE NUM 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : " $ddddddd.dd n 



Field : DEPTIC MUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : " $ddddd.dd" 



Field : MIPR# STR 15 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "%15r" 



Field : REF# STR 25 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "%25r" 



Field : AUTH NUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : " $ddddddd. dd" 



Field : COSTCODE STR 5 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "%5r" 



Field : EXPIRE NUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "dd-dd-dd" 



Field : ICRECD NUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : H $ddddd.dd" 
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Field : REMARKS STR 50 

Read Access : ABCDEFGH I JKLMNOP 
Write Access : ABCDEFGH I JKLMNOP 
Picture : "%50r" 



Field : STAFFLBR NUM 
Read Access : ABCDEFGH I JKLMNOP 
Write Access : ABCDEFGH I JKLMNOP 
Picture : "$ddddd.dd" 



Field : ASAPPRO NUM 

Read Access : A 

Write Access : A 

Picture : " $ddddd. dd" 



Field : DOC# STR 15 

Read Access : A 

Write Access : A 

Picture : "%15r" 



Field : SEGMENT STR 5 

Read Access : A 

Write Access : A 

Picture : "%6r" 



Field : SERIALS NUM 

Read Access : A 

Write Access : A 

Picture : "dddd-dddd" 
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Table name : INVENTOR 
File name : INVENTOR. ITB 

Read Access : A 

Write Access : A 

Creation Date : 12/13/85 

Modification Date : 12/18/85 

Number of Records : 0 



Field : SHARK LOGIC 

Read Access : A 

tfrite Access : A 

Picture : (default) 



Field : PA# STR 6 

Read Access : A 

'.irite Access : A 

Picture : " 9 o6r" 



Field : VENDOR STR 40 

Read Access : A 

r /7rite Access : A 

Picture : "%40r" 



Field : DESCRIPT STR 50 

Read Access : A 

Nrite Access : A 

Picture : "%50r" 



Field : SERIAL# STR 12 

Read Access : A 

’.tfrite Access : A 

Picture : "%12r" 



Field : PO# STR 9 

Read Access : A 

W rite Access : A 

Picture : "%9r" 



Field : COST NUM 

Read Access : A 

Write Access : A 

Picture : " $dddddd.dd" 
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MUM 



Field : RECEIVED 
Read Access : A.... 
Write Access : A.... 
Picture : "dd-dd-dd" 



Field : ISSUE STR 25 

Read Access : A 

Write Access : A 

Picture : "%25r" 



Field : LOCATION STR 7 

Read Access : A 

Write Access : A 

Picture : "%7r" 
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Table name : OPTAR 
File name : OPTAR. IT3 
Read Access : A3CDEFGHIJKLMN0P 
Write Access : ABCDEFGH I JKLMNOP 
Creation Date : 02/25/86 

Modification Date : 02/26/86 

Number of Records : 2 



Field : SHARK LOGIC 

Read Access : ABCDEFGH I JKLMNOP 
Write Access : A3CDEFGHIJKLMN0P 
Picture : (default) 



Field : ENTRY HUM 

Read Access : ABCDEFGH I JKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "dd-dd-dd" 



Field : RECEIVED NUM 
Read Access : A3CDEFGH I JKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "dd-dd-dd” 



Field : AUTH NUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : " $dddddd.dd” 



Field : TAUTH NUM 

Read Access : A3CDEFGH I JKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "$dddddd.dd" 



Field : ACTUAL NUM 

Read Access : A 

Write Access : A 

Picture : "$dddddd.dd" 



Field : TACTUAL NUM 

Read Access : A 

Write Access : A 

Picture : "$dddddd.dd" 
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Field : DIFFER 

Virtual field : ( (ACTUAL - AUTH) ) 

Read Access : A 

Picture : (default) 



Field : TDIFFER 

Virtual field : ((TACTUAL - TAUTH) ) 

Read Access : A 

Picture : (default) 
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Table name : OTHER 
File name : OTHER. ITB 
Read Access : A3CD EFGH I J KLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Creation Date : 02/25/86 

Modification Date : 02/25/86 

Number of Records : 6 



Field : #MARK LOGIC 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : (default) 



Field : ENTRY NUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "dd-dd-dd" 



Field ; STATUS STR 25 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "%25r" 



Field : EXPIRE NUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : A3CDEFGHIJKLMN0P 
Picture : "dd-dd-dd" 



Field : PRINCIPL STR 20 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "%20r" 



Field : SPONSOR STR 35 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : AB CD EFGH I J KLMNOP 
Picture : "%35r" 



Field : PROPOSAL STR 130 
Read Access : A3CDEFGHIJ KLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "%130r" 
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Field : COSTCODE STR 5 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "%5r" 



Field : AQTH NUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : " Sdddddd.dd" 



Field : REMARKS STR 50 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "%50r" 
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Table name : PFUNDING 
File name : PFUNDING. ITB 
Read Access : A3CDEFGH I J KLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Creation Date : 02/27/86 

Modification Date : 02/27/86 

Number of Records : 314 



Field : #MARK LOGIC 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : A3CDEFGH I J KLMNOP 
Picture : (default) 



Field : ENTRY NUM 

Read Access : A3CDEFGHIJKLMN0P 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "dd-dd-dd" 



Field : LNAME STR 25 

Read Access : A3CDEFGHIJXLMN0P 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "%25r" 



Field : FNAME STR 15 

Read Access : A3CDEFGHIJKLMM0P 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "%15r" 



Field : FUNDFROM NUM 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : A3CDEFGHIJKLMN0P 
Picture : '’dd-dd-dd 1 ' 



Field : FUNDTO NUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "dd-dd-dd" 



Field : DAYS STR 5 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "%5r" 
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Field : COSTCODE STR 5 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "%5r" 



Field : AMOUNT NUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "Sddddd.dd" 



Field : LABOR# NUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "dd-dd-dd" 



Field : CODE STR 3 

Read Access : A 

Write Access : A 

Picture : "%3r n 



Field : HOURS NUM 

Read Access : A 

Write Access : A 

Picture : n d" 



Field : RATE NUM 

Read Access : A 

Write Access : A 

Picture : "$ddd.dd" 



Field : HRSWX NUM 

Read Access : A 

Write Access : A 

Picture : "dd n 
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Table name : PHISTORY 
File name : PHISTORY. IT3 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Creation Date : 02/27/36 

Modification Date : 02/27/86 

Number of Records : 27 



Field : #MARK LOGIC 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : (default) 



Field : ENTRY NUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "dd-dd-dd" 



Field : LNAME STR 25 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "%25r" 



Field : FNAME STR 15 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : ''%15r" 



Field : DOB NUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "dd-dd-dd" 



Field : EFFECTIV NUM 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "dd-dd-dd" 



Field : STATUS STR 6 

Read Access : A3CDEFGHIJKLMN0P 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "%6r" 
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Field : 3ILLET# STR 4 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "%4r" 



Field : JOBTITLE STR 30 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "%30r" 



Field : ES NUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "dd-dd-dd" 



Field : NORKUNIT STR 10 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : A3CDEFGH IJKLMNOP 
Picture : "%10r" 



Field : SUPERVSR STR 25 
Read Access : A3CDEFGH IJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "%25r" 



Field : PD# STR 5 

Read Access : A3CDEFGH IJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "%5r" 



Field : SERIES NUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "ddddd" 



Field : GRADE NUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "dd" 
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Field : STEP NUM 

Read Access : ABCDEFGHIJXLMNOP 
Nrite Access : ABCDEFGHIJXLMNOP 
Picture : "dd" 



Field : SALARY NUM 

Read Access : ABCDEFGHIJXLMNOP 
Write Access : ABCDEFGHIJXLMNOP 
Picture : "$ddddd.dd" 



Field : HRSWK NUM 

Read Access : ABCDEFGHIJXLMNOP 
Write Access : ABCDEFGHIJXLMNOP 
Picture : "dd" 



Field : EXPIRE HUM 

Read Access : ABCDEFGHIJXLMNOP 
Write Access : ABCDEFGHIJXLMNOP 
Picture : "dd-dd-dd" 



Field : REMARXS STR 100 

Read Access : ABCDEFGHIJXLMNOP 
Write Access : A3CDEFGH IJXLMHOP 
Picture : "%100r" 



Field : RATE 

Virtual field : (((SALARY / 2087) * 3 

Read Access : ABCDEFGHIJXLMNOP 
Picture : "$ddd.dd" 



* 1.30000) ) ) 
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Table name : PURCHASE 
File name : PURCHASE. ITS 
Read Access : ABCDEFGHIJXLMNOP 
//rite Access : ABCDEFGH IJXLMNOP 
Creation Date : 02/11/86 

Modification Date : 02/28/86 

Number of Records : 268 



Field : #MARK LOGIC 

Read Access : ABCDEFGH I JKLMNOP 
W rite Access : ABCDEFGH IJKLMNOP 
Picture : (default) 



Field : ENTRY NUM 

Read Access : A3CDEFGH IJXLMNOP 
Write Access : ABCDEFGH IJXLMNOP 
Picture : "dd-dd-dd" 



Field : DOC# STR 10 

Read Access : ABCDEFGH IJXLMNOP 
Write Access : ABCDEFGH IJXLMNOP 
Picture : "%10r" 



Field : COSTCODE STR 5 
Read Access : ABCDEFGH IJXLMNOP 
Write Access : A3CDEFGH IJXLMNOP 
Picture : "%5r " 



Field : VENDOR STR 40 

Read Access : ABCDEFGH IJXLMNOP 
Write Access : A3CDEFGH IJXLMNOP 
Picture : "%40r" 



Field : DESCRIPT STR 50 
Read Access : A3CDEFGH IJXLMNOP 
Write Access : ABCDEFGH IJXLMNOP 
Picture : "%50r" 



Field : STOCX# STR 20 

Read Access : ABCDEFGH IJXLMNOP 
Write Access : ABCDEFGH IJXLMNOP 
Picture : "%20r" 
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Field : ESTIMATE MUM 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : " $ddddd. dd" 



Field : PRIORITY NUM 
Read Access : A3CDEFGHIJKLMN0P 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "dd" 



Field : RDD NUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "dd-dd-dd" 



Field : CODE STR 3 

Read Access : A3CDEFGHIJKLMN0P 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "%3r" 



Field : REQUESTR STR 25 
Read Access : ABCDEFGHIJKLMNOP 
Write Access.: ABCDEFGHIJKLMNOP 
Picture : "%25r" 



Field : PO# STR 9 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "%9r" 



Field : RECEIVED NUM 
Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : "dd-dd-dd" 



Field : FIRM NUM 

Read Access : ABCDEFGHIJKLMNOP 
Write Access : ABCDEFGHIJKLMNOP 
Picture : " $ddddd.dd" 
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Field : SERIAL# STR 12 

Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 
Picture : ''%12r" 



Field i PA# STR 17 

Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 
Picture : "%17r" 



Field : ISSUE STR 25 

Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 
Picture : ''%25r" 



Field : LOCATION STR 7 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 
Picture : "%7r" 



Field : REMARKS STR 50 

Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 
Picture : "%50r" 



Field : QTY STR 3 

Read Access : A 

Write Access : A 

Picture : "rrr" 
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Table name : TVLEXP 
File name : TVLEXP. ITS 
Read Access : A3CDEFGH IJKLMNOP 
Write Access : ABCDEFGH I J KLMNOP 
Creation Date : 02/28/36 

Modification Date : 02/23/36 

Number of Records : 133 



Field : # MARK LOGIC 

Read Access : A3CDEFGH I J KLMNOP 
Write Access : ABCDEFGH IJ KLMNOP 
Picture : (default) 



Field : DATEDEP MUM 

Read Access : ABCDEFGH IJKLMNOP 
Write Access : A3CDEFGHIJKLMN0P 
Picture : "dd-dd-dd" 



Field : REQUESTR STR 20 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 
Picture : "%20r" 



Field : LOCATION STR 25 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 
Picture : "%25r" 



Field : CODE STR 3 

Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 
Picture : "%3r" 



Field : ESTIMATE MUM 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 
Picture : "$dddd.dd" 



Field : COSTCODE STR 5 
Read Access : ABCDEFGH IJKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 
Picture : "%5r" 
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Field : DOC# STR 10 

Read Access : A3CDEFGHIJKLMN0P 
Write Access : ABCDEFGH I J KLMNOP 
Picture : "%10r" 



Field : ADVANCE NUM 

Read Access : ABCDEFGH I JKLMNOP 
Write Access : ABCDEFGH IJKLMNOP 
Picture : "$ddd.dd" 



Field : DATERET NUM 

Read Access : ABCDEFGH I JKLMNOP 
Write Access : ABCDEFGH I JKLMNOP 
Picture : "dd-dd-dd" 



Field : CLAIM NUM 

Read Access : ABCDEFGH I JKLMNOP 
Write Access : A3CDEFGH I JKLMNOP 
Picture : "dd-dd-dd" 



Field jt FIRM NUM 

Read Access : ABCDEFGH I JKLMNOP 
Write Access : ABCDEFGH I JKLMNOP 
Picture : "$ddddd.dd" 
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Field : ENTRY NUM 

Read Access : ABCDEFGHIJKLMNOP 
W rite Access : ABCDEFGHIJKLMNOP 
Picture : "dd-dd-dd" 



Field : DOV# STR 5 

Read Access : A 

Write Access : A 

Picture : "rrrrr" 
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